Помогите разобраться в TimeToStr

[KWN, lnc]

у меня в Edit1.text идет отчет как бы таймер и мне надо чтобы TimeToStr извлек этот отчет как это сделать??? я знаю что TimeToStr требует integer ... и все же мне нужен отчет с Edit(a) в TimeToStr

вот что я делаю и то-что мне надо!

Label1.Caption := TimeToStr((Edit1.Text)-StrToTime(TimeToStr(Now)));

[Terran]

Можете сделать так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Label1.Caption:=TimeToStr(StrToTime(Edit1.Text)-Time);
End;

[KWN, lnc]

Terran Низкий тебе поклон!!! спс!!!