Edit inhalte in einer Paradox 7 DB prüfen

[BackYard]

Warum geht das nicht?
Der zeigt mir den msgdialog immer.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Table1.Locate('Username', Edit1.Text, [loCaseInsensitive]) = true and
Table1.Locate('Password', Edit2.Text, [loCaseInsensitive]) = true then
MessageDlg('OK. Userdata found.', mtInformation,[mbOk], 0)
else
showmessage('pech');
end;