diff --git a/lcl/dbctrls.pp b/lcl/dbctrls.pp
index 1168e717dc..489e61e0d7 100644
--- a/lcl/dbctrls.pp
+++ b/lcl/dbctrls.pp
@@ -157,7 +157,6 @@ Type
     destructor Destroy; override;
     procedure Initialize(AControlDataLink: TFieldDataLink; AControlItems: TStrings);
     function KeyFieldValue: Variant;
-    function ListFieldValue: string;
     procedure UpdateData(ValueIndex: Integer);
     function  GetKeyValue(ValueIndex: Integer): Variant;
     function  GetKeyIndex(const AKeyValue: Variant): Integer;
diff --git a/lcl/include/dblookup.inc b/lcl/include/dblookup.inc
index 84cc981a61..c269ba487c 100644
--- a/lcl/include/dblookup.inc
+++ b/lcl/include/dblookup.inc
@@ -336,37 +336,6 @@ begin
     Result := Null;
 end;
 
-function TDBLookup.ListFieldValue: string;
-var
-  Key: Variant;
-begin
-  Result := '';
-  if not (Assigned(FControlLink) and (FDataFieldNames<>'') and
-          Assigned(FListField) and FControlLink.Active) then
-    Exit;
-  Key := FControlLink.DataSet.FieldValues[FDataFieldNames];
-  if FHasLookupField then
-  begin
-    if (FLookupCache and not FLookUpFieldIsCached) then
-      Result := FLookupList.ValueOfKey(Key)
-    else
-      Result := FControlLink.Field.AsString;
-    Exit;
-  end;
-  if FLookupCache then
-  begin
-    Result := FLookupList.ValueOfKey(Key);
-    Exit;
-  end;
-  LinkGetBookMark;
-  try
-    if FListLink.DataSet.Locate(FKeyFieldNames, Key, []) then
-      Result := FListField.AsString;
-  finally
-    LinkGotoBookMark;
-  end;
-end;
-
 procedure TDBLookup.UpdateData(ValueIndex: Integer);
 var
   I: Integer;