Verbleibende Zeit

[TJDD]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Uhrzeit_Ende, Uhrzeit_Verbleib : Tdatetime;
    Buffer, MIN, STD, SEC :string;
    aStd, aMin, aSec, aMsec : word;
    bstd, bmin,bsec:integer;
 begin
DecodeTime(Time, aStd, aMin, aSec, aMsec);
edit1.Text := Timetostr(Time);
Uhrzeit_Ende := strtoTime('12:00:00');
edit2.text := Timetostr(Uhrzeit_Ende);
Uhrzeit_Verbleib := Time - Uhrzeit_ende;
Buffer := timetostr(Uhrzeit_Verbleib);
if Uhrzeit_Ende > Time then
  begin
      Std := copy(Buffer, 1,2);
      Min := copy(Buffer, 4,2);
      Sec := copy(Buffer, 7,2);
      bsec := strtoint(Sec) +1;
     edit3.Text := std+ ':' + min+ ':' + inttostr(bsec);
  end
else
  begin
  Std := copy(Buffer, 1,2);
  Min := copy(Buffer, 4,2);
  bstd := 23-strtoint(std);
  bmin := 59-strtoint(min);
  if asec >0 then
    bsec := 60-asec
   else
    bsec := 0;
  edit4.Text := inttostr(bstd)+ ':' +inttostr(bmin)+ ':' +inttostr(bsec);
  end;
end;

so muss es gehenalso ich seh keinen Fehler mehr kann mal jmd durch gehen und/oder testen

Danke schon zum 2. mal supermuckl

//EDIT:\\

wie kann man eine form vollständig aus dem quellcode ntfrenen so dass sie im ordner gelöscht werden kann