отображение данных в Memo

[reihtmonbern]

Доброго времени суток использую код для отображение данных:

#

DataModule3.ADOQuery42.Active:=false;
 DataModule3.ADOQuery42.SQL.Text := 'select [ФИО] & " " & [Должность] & " " & [м-отправления] & " " & [м-назначения] & " " & [дата-н] & " " & [дата-к] & " " & [Основание] & " " & [Цель_задания] & " " & [ТАБ_№] from K where PKey Like '''+DBEdit1.Text+'%'' ';
 DataModule3.ADOQuery42.Active:=TRUE;
//Memo1.CLEAR;
DataModule3.ADOQuery42.Recordset.MoveFirst;
while not DataModule3.ADOQuery42.Recordset.EOF do
begin
 Memo4.Lines.Add(DataModule3.ADOQuery42.Recordset.Fields[0].Value);

DataModule3.ADOQuery42.Recordset.MoveNext;
end;
dbMemo3.Lines.AddStrings(Memo4.Lines);

#
всё хорошо работает но если sql запрос возвращает пустое значение
вылетает вот такая ошибка (вложенное изображение) подскажите как нужно код изменить таким образом что бы дэлфи не ругался а если пустое значение то просто поле memo оставалось бы пустым ??

[Sciv]

Проверку на пустоту запроса введите:

If not DataModule3.ADOQuery42.IsEmpty then begin
  DataModule3.ADOQuery42.Recordset.MoveFirst;
  while not DataModule3.ADOQuery42.Recordset.EO F do
  begin
    Memo4.Lines.Add(DataModule3.ADOQuer y42.Recordset.Fields[0].Value);

    DataModule3.ADOQuery42.Recordset.MoveNext;
  end;
  dbMemo3.Lines.AddStrings(Memo4.Line s);
end;

[reihtmonbern]

Сообщение от Sciv

Проверку на пустоту запроса введите:

If not DataModule3.ADOQuery42.IsEmpty then begin
  DataModule3.ADOQuery42.Recordset.MoveFirst;
  while not DataModule3.ADOQuery42.Recordset.EO F do
  begin
    Memo4.Lines.Add(DataModule3.ADOQuer y42.Recordset.Fields[0].Value);

    DataModule3.ADOQuery42.Recordset.MoveNext;
  end;
  dbMemo3.Lines.AddStrings(Memo4.Line s);
end;

Спасибо большое очень помогло !