procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.sql.text:= 'Select Clave,nombre,domicilio from Usuarios where Clave =:Cla';
Query1.Parameters[0].Value:= Edit1.Text;
Query1.Open;
Edit2.text:= Query1.filebyname('nombre').AsString;
Edit3.text:= Query1.filebyname('domicilio').AsString;
end;