procedure TForm4.Button1Click(Sender: TObject);
begin

      Label4.Caption := 'Ждите ответа';     // !!!!!!!

try

 Query1.Params[ 0 ].AsString := FormatDateTime('mm.dd.yy', DateTimePicker1.Date);
 Query1.Active:=True;
 Edit1.Text := Query1.FieldByName('StartID').AsString;
 Query1.Active:=False;

 Query2.Params[ 0 ].AsString := FormatDateTime('mm.dd.yy', DateTimePicker2.Date);
 Query2.Active:=True;
 Edit2.Text := Query2.FieldByName('EndID').AsString;
 Query2.Active:=False;

except ShowMessage('Error'); 
end;

end;