procedure TForm5.Button1Click(Sender: TObject);
begin
DataModule2.cliente.Close;
DataModule2.cliente.SQL.Text:='select nombre from cliente where nombre like'+quotedstr(Edit2.Text);
DataModule2.cliente.Open;
Edit3.text:= DataModule2.cliente.fields[0].AsString;
end;