[cyber922]

Сообщение от angvelem

Код:

var
  Fmain: TFmain;
  VTime : String;

implementation

Код:

unit umain;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons;

type
  TFmain = class(TForm)
    Panel1: TPanel;
    STFIO: TStaticText;
    STWelkome: TStaticText;
    STDATE: TStaticText;
    STTIME: TStaticText;
    TSmain: TPageControl;
    TabSheet1: TTabSheet;
    TSTEst: TTabSheet;
    TSResult: TTabSheet;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    BitBtn1: TBitBtn;
    Memo1: TMemo;
    Panel2: TPanel;
    TrackBar1: TTrackBar;
    StaticText3: TStaticText;
    Panel3: TPanel;
    StaticText4: TStaticText;
    STQutest: TStaticText;
    STtimetest: TStaticText;
    Label3: TLabel;
    Label4: TLabel;
    BBStarttest: TBitBtn;
    Panel4: TPanel;
    Memo2: TMemo;
    BByes: TBitBtn;
    BBno: TBitBtn;
    BBres: TBitBtn;
    LabeledEdit1: TLabeledEdit;
    timer2: TTimer;
    procedure formShow(Sender: TObject);
    procedure ontimer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BBStarttestClick(Sender: TObject);
    procedure timer2Timer(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fmain: TFmain;
  Vtime:string;
implementation

{$R *.dfm}

procedure TFmain.BBStarttestClick(Sender: TObject);
begin
Vtime:=timetostr(time);
timer2.Enabled:=true;
end;
procedure TFmain.BitBtn1Click(Sender: TObject);
begin
Tsmain.activepage:=TStest;
end;
 procedure TFmain.formShow(Sender: TObject);
begin
 stdate.Caption:=datetostr(date);
end;

procedure TFmain.ontimer(Sender: TObject);
begin
sttime.Caption:=timetostr(time);
end;



procedure TFmain.timer2Timer(Sender: TObject);
  begin
Sttimetest.caption:=timetostr (time-strtotime(vtime));
end;

end.

Тоже самое, компилируются ошибка..