\"Tabbe\" i StringGrid

Jeg har et stringrid, og når jeg har tabbet mig til sidste række, så vil jeg gerne flytte fokus til første række og kolonne i et andet stringgrid.

Jeg har forsøgt følgende, men det vil ikke virke:

procedure TForm1.sgDimensions1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
i,j:      Integer;
begin
if (Key = VK_TAB) then
  begin
  with sgDimensions1 do
    begin
    i := Col;
    j := Row;
      if (i = 1) and (j = 10) then
      sgDimensions2.SetFocus
      else exit;
    end;
  end
else
  exit;
end;

_______

Det er sikkert en eller anden dum fejl, men jeg kan simpelt hen ikke få øje på den.
Håber der er nogen der kan hjælpe!!

Mvh.
          Jan