procedure TForm1.Button1Click(Sender: TObject);
begin
with IBQuery1 do
begin
Close;
Sql.Clear;
Sql.Text := 'Select * from Employee Where First_Name Like :P1 and Last_Name Like :P2';
ParamByName('P1').AsString := Edit1.Text + '%';
ParamByName('P2').AsString := Edit2.Text + '%';
Open;
end;
end;