델파이 아주 아주 초보 입니다.

만들고 싶은 프로램이 있어서 기초 없이 하고 있습니다.

접속 유지 시간을 실시간으로 출력을 해주고 싶은대 잘 모르겠습니다.

로그인이 되면 1초 부터 계속해서 시간이 증가 되야 하는대

00:00:01 하고 끝나네요..

뭔가 있을 듯 싶은대요 ^^:

도움 좀 주시면 감사하겠습니다.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  starttime: tdatetime;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin

  starttime := now()-((1/(24*60*60))) ;

  label2.Caption := FormatDatetime('hh:mm:ss', now() - startTime );

end;

end.