Terminplaner Problem

[Saber rider2k5]

Soll ich denn 10 Threads erstellen

Also ich trage sie vollgendermaßen ein:

Delphi-Quellcode:

procedure TForm1.TrageTerminEin(dEintragDat: TDateTime;
  sEintragText: String);
var
  iGridPos: Integer;
begin
  iGridPos:= stgPlaner.RowCount;
  stgPlaner.RowCount:= iGridPos+1;
  stgPlaner.Cells[0,iGridPos]:= FormatDateTime('dd.mm.yyyy',dEintragDat);
  stgPlaner.Cells[1,iGridPos]:= FormatDateTime('hh:mm',dEintragDat);
  stgPlaner.Cells[2,iGridPos]:= sEintragText;
end;

//------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
  dEintragDat: TDateTime;
  sEintragText: String;
begin
  if frmTerminEintrag.ShowModal = mrOk then
  begin
    dEintragDat:= frmTerminEintrag.DateTimePicker1.DateTime;
    sEintragText:= frmTerminEintrag.edtTermin.Text;

    SpeichereNeuenEintrag(dEintragDat,sEintragText);
    TrageTerminEin(dEintragDat,sEintragText);
  end;
  frmTerminEintrag.edtTermin.Text:= '';
  frmTerminEintrag.DateTimePicker1.Date:= now;
  frmTerminEintrag.DateTimePicker1.Time:= 0;
end;

//------------------------------------------------------------------------------
function TForm1.BestimmeNaechstenEintragsNamen: String;
var
  iniDatei: TIniFile;
  slEintrage: TStringList;
begin
  iniDatei:= TIniFile.Create('Termine.ini');
  slEintrage:= TStringList.Create;
  iniDatei.ReadSections(slEintrage);
  Result:= 'Termin'+IntToStr(slEintrage.Count+1);
  slEintrage.Free;
  iniDatei.Free;
end;

//------------------------------------------------------------------------------
procedure TForm1.SpeichereNeuenEintrag(dEintragDat: TDateTime;
  sEintragText: String);
var
  Inidatei: TIniFile;
  sNeueSektion: String;
begin
  sNeueSektion:= BestimmeNaechstenEintragsNamen;
  Inidatei:= TIniFile.Create('Termine.ini');
  IniDatei.WriteDateTime(sNeueSektion,'ZEIT',dEintragDat);
  IniDatei.WriteString(sNeueSektion,'TEXT',sEintragText);
  Inidatei.Free;
end;

da is irgentwo der Wurm drinne wegen diesem 0 Uhr problem