mit Edit.text in einer Datenbank suchen?

[Newb]

ich bekomm dann aber die fehlermeldung:
Table1: Datenmenge weder im Editier noch im Einfügemodus, das ist mein quelltext dafür:

procedure TForm4.Button2Click(Sender: TObject);
begin
Table1.Locate('Nr',strtoint(Edit1.Text), []);
Table1.fieldbyname('Verleihstatus').asString:='ja' ;
Table1.fieldbyname('Kundennrv').asString:=Edit2.Te xt;
end;

kann mir jemand helfen?