* Revents a possible AV in StringGrid mediator.

1 files changed, 5 insertions, 1 deletions

diff --git a/extras/tiopf/gui/tiListMediators.pas b/extras/tiopf/gui/tiListMediators.pas
index f80b18b7..c816a263 100644
--- a/extras/tiopf/gui/tiListMediators.pas
+++ b/extras/tiopf/gui/tiListMediators.pas
@@ -391,13 +391,17 @@ end;
 procedure TStringGridMediator.SetSelectedObject(const AValue: TtiObject);
 var
   i: integer;
+  o: TObject;
 begin
   for i := 0 to FView.RowCount - 1 do
-    if TtiObject(FView.Objects[0, i]) = AValue then
+  begin
+    o := FView.Objects[0, i];
+    if Assigned(o) and (TtiObject(o) = AValue) then
     begin
       FView.FocusRow := i;
       Exit; //==>
     end;
+  end;  { for }
 end;
 
 procedure TStringGridMediator.SetView(const AValue: TfpgStringGrid);