procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select * from fournisseur where code_f=' +quotedstr(Edit1.Text)); ADOQuery1.Open; ADOQuery.first; Memo1.Clear; While not ADOQuery.Eof do begin Memo1.Lines.Add(ADOQueryCHAMP1.text + ';' + ADOQueryCHAMP2.text); ADOQuery.Next; end; end;