Problem mit der abfrage der ENTER taste

[Countdown2000]

So besser ?
ich Speicher durch Table1.Post; !

Delphi-Quellcode:

procedure TForm3.DBEdit1KeyPress(Sender: TObject; var Key: Char); 
begin 
 if key = #13 then 
  begin 
   if DBEdit1.Text = '' then 
    begin 
     DBedit5.Text := 'Nein' ; 
     Checkbox1.state := cbunchecked; 
     form1.DBGrid1.Enabled := true; 
     Form1.Table1.Refresh; 
     table1.Refresh; 
     Form1.Enabled := false; 
     button6.Enabled := false 
    end; 
   if DBEdit1.Text <> '' then 
    begin 
     table1.Post;                     // Speichern 
     form1.DBGrid1.Enabled := true; 
     Form1.Table1.Refresh; 
     table1.Refresh; 
     Form1.Enabled := false; 
     button6.Enabled := false; 
    end; 
  end; 
end;