String mit TTimer

[Gehstock]

Nee zu früh gefreut klappt doch nicht es läuft die aktuielle zeit durch

Delphi-Quellcode:

function TForm1.Info: Boolean;
var
zeit:string;
datum:string;
jahr:string;
monat:string;
tag:string;
zeit2:string;
stunde:string;
minute:string;
sekunde:string;
versatz:string;
begin
Progressbar1.Position:=10;
 Connect1.Tag := 1;
    StatusBar.Panels[0].text:='Verbunden mit '+ComPort.Text;
      Connect1.Caption := 'Trennen';
        s:= 'AT+CCLK?';
    SendCMD;
    Memo1.Lines.Add(Result1);
    zeit:=Memo1.Lines[33];
    datum:=Memo1.Lines[33];
    delete(zeit,1,17);
    delete(zeit,9,15);
    delete(zeit2,1,17);
    delete(zeit2,12,15);
    delete(datum,1,8);
    delete(datum,9,15);
    jahr:='20'+datum[1]+datum[2];
    monat:=datum[4]+datum[5];
    tag:=datum[7]+datum[8];
    LabeledEdit1.text:=tag+'.'+monat+'.'+jahr;
    dtread:=strtotime(Zeit);
    Stunde:=zeit[1]+zeit[2];
    minute:=zeit[4]+zeit[5];
    sekunde:=zeit[7]+zeit[8];
    versatz:=zeit[10]+zeit[11];
    zeit2:=stunde+':'+minute+':'+inttostr(strtoint(sekunde)+(strtoint(versatz)));
    dtnow:=strtotime(Zeit2);
    Progressbar1.Position:=100;
    memo1.lines.add(zeit2);
  end;

Delphi-Quellcode:

procedure TForm1.Timer3Timer(Sender: TObject);
begin
Edit2.Text := TimeToStr(dtRead + Now - dtNow);
end;

vieleicht könnte mir noch jemand nen denkanstoß geben