EDatabaseError - auslesen aus DB

[capo]

Hallo,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
With Query1 do
 begin
sql.add('select * from Rechnungen where BEZAHLT = :BEZAHLT ');
 //  sql.add('select RGNR,BEZAHLT from Rechnungen where BEZAHLT = :BEZAHLT ');
ParamByName('BEZAHLT').AsString:= 'N'; // falls es ein Char ist
Open;
try
  while not EOF do
  begin

 memo3.Lines.Add(FieldByName('BEZAHLT').AsString +  ' => gefunden!');
  Next;
 End;
finally
  Close;
end;
end;
end;