diff --git a/lcl/grids.pas b/lcl/grids.pas
index eb288b44c9..d47d2338ee 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -5093,10 +5093,10 @@ end;
 function TCustomGrid.GetEditorBorderStyle: TBorderStyle;
 begin
   result := bsSingle;
-  if FEditor = FstringEditor then
+  if FEditor = FStringEditor then
     Result := FStringEditor.BorderStyle
   else if FEditor = FPickListEditor then
-    Result := FStringEditor.BorderStyle;
+    Result := FPickListEditor.BorderStyle;
 end;
 
 function TCustomGrid.GetBorderWidth: Integer;