stringzugriff - wie könnte ich das regeln

[meisteralex]

Jut, also im weisentlichen geht es darum das ich zwei Timerroutinen hab, welche auf den gleichen String zugreifen

Delphi-Quellcode:

//capturestring:string ist als globale Variable definiert



procedure Thauptform.tmrMouselogTimer(Sender: TObject);
var
x,y:integer;
aktuellerfenstertitel:string;
begin
x:= getmousex();
y:= getmousey();
  
        aktuellerfenstertitel := lesefenstertitel();
        if (aktuellerfenstertitel <> alterfenstertitel) then  //Fenstertitel geändert
          begin
          
            
            alterfenstertitel := aktuellerfenstertitel;

            MyCS.Enter;
            Try   //wenn fenster sich geändert hat, diese information mit der aktuellen mausposition in den string schreiben
              capturestring := capturestring + '|NWA|'+ aktuellerfenstertitel +'|NWE|'+'|MPA|'+inttostr(x)+','+inttostr(y)+'|MPE|';
            Finally
              MyCS.Leave;
            End;

          end
        else
          begin
            MyCS.Enter;
            Try   //wenn fenster sich nicht geänder hat, nur die aktuelle mouseposition in den string schreiben
              capturestring := capturestring + '|MPA|'+inttostr(x)+','+inttostr(y)+'|MPE|';
            Finally
              MyCS.Leave;
            End;
          end;
  
end;



procedure Thauptform.tmrschreibeTimestampTimer(Sender: TObject);
begin
//erst prüfen wir ob die Zeitinformation erneuert werden muss
//es wird geprüft ob eine stunde vergangen ist

if (lasttimestamp + 3600 <  datetimetounix(now())) then
  begin
    info('schreibe timestamp');
    MyCS.Enter;
    Try
      capturestring := capturestring + '|DTA|' + inttostr(datetimetounix(now())) + '|DTE|';
    Finally
      MyCS.Leave;
    End;
    lasttimestamp := datetimetounix(now());
    oldcapturestring := capturestring;
  end;
end;
//die Prozedur schreibt also jede Stunde in die Variable capturestiring den aktuellen Unixtimestamp

Problem des ganzen ist, wie schohn beschrieben, dass, wenn stündlich ein Timestamp in den String geschrieben wird, dieser den aktuellen Datenfluss abhackt
sprich aus dem richtigem Ergebnis '|NWA|Explorer|NWE||MPA|333,444|MPE||DTA|328974893 729|DTE|' wird z.b. '|NWA|Explo|DTA|328974893729|DTE|' wobei der Teil der abgehackt wird ('rer|NWE||MPA|333,444|MPE|') kommplett überschrieben wird