Вывести результат поиска в ShowMessage

[Aleksandr]

Осуществляю поиск с помощью кода

ADOQuery1.Active:=false;
ADOQuery1.Parameters.ParamByName('Ip').Value:=DBEdit10.Text;
ADOQuery1.Active:=true;
ShowMessage(ADOQuery1.FieldByName('ФИО').AsString) ;

, а как вывести результат поиска не в таблицу, а в ShowMessage например столбца ФИО, Отдел

[Gulik]

var
   str : string ;
begin 
   str := ADOQuery1.FieldByName('ФИО').AsString + ' ' + ADOQuery1.FieldByName('Отдел').AsString ;
   Application.MessageBox(PChar(str), 'Сообщение') ;
end ;

или если несколько строк

var
   str : string ;
begin 
   str := '' ;
   while not ADOQuery1.Eof do begin
           str := ADOQuery1.FieldByName('ФИО').AsString + ' ' + ADOQuery1.FieldByName('Отдел').AsString + #13 ;
           ADOQuery1.Next ;
   end ;
   Application.MessageBox(PChar(str), 'Сообщение') ;
end ;