ADODataSet1.Active:=false;

ADODataSet1.CommandText:='select surname, name '+

'from fio '+

'where name= '+''''+Edit1.Text+'''';

ShowMessage(ADODataSet1.CommandText);

ADODataSet1.Active:=True;