String mit TTimer

[Gehstock]

Delphi-Quellcode:

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(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;
    Edit2.Text:=zeit;

wobei das datum nicht weiterlaufen muss