问题是LookupField的类型是varchar(max)。为了解决这个问题，我修改了LookupSource查询，将其转换为varchar(250)。
我遇到了这个问题，在网上找不到答案。我张贴的问题和答案，以便未来的游客将能够找到解决方案更快。

我使用ZeosDbo和Lazarus。TDBLookupComboBox显示（备忘录）。我做了一些研究，发现了GetText方法。我写了一个方法：

procedure GetText(Sender: TField; var aText: string;
  DisplayText: boolean);
begin
  if (Sender.DataType = ftMemo) then
  begin
    aText := Sender.AsString;
    DisplayText := True;
  end;
end;

并给它方法地址：

ZQuery.FieldByName('FieldName').OnGetText := @GetText;