Lesen und schreiben aus/in Datenbank

[allarich]

Hallo Forumsmitglieder,

wer kann weiterhelfen ?
Möchte aus Datenbank Inhalte auslesen,verknüpfen und in eine Zelle abspeichern.
Den von mir erstellten Code habe ich angehängt.
Kompilation läuft fehlerfrei. Aber nach Betätigung des Buttons stoppt Programm mit Fehlermeldug.
Wo liegt der Fehler ?

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
  Td1,Td2,Td3,Er1: string;
  ZW: real;
begin
  //Table1.DatabaseName:= '.\DB\';
  Table1.TableName:= 'KDDaten';
  Table1.Active:= true;
  Table1.First;
  while not (Table1.Eof) do
  begin
    Td1:= Table1.FieldValues['Stunden'];
    Td2:= Table1.FieldValues['Minuten'];
    Td3:= Table1.FieldValues['Sekunden'];
    ZW:= StrToFloat(Td1)*60+StrToFloat(Td2)+StrToFloat(Td3)/60;
    Er1:= FloatToStr(ZW);
    Table1.Insert;
    Table1.FieldByName('Ges. Minuten').AsString:= Er1;
    Table1.Post;
    Table1.Next;
  end;
end;

MfG
allarich

[edit=Sharky]Delphi-Tags gesetzt und Code formatiert. Mfg, Sharky[/edit]