[lmikle]

Надо проверить, что во всех ячейках нет данных.

Код:

function IsGrisIsEmpty(AGrid : TStringGrid) : Boolean;
var
  I, J : Integer;
begin
  Result := True;
  For I := 0 To AGrid.Rows-1 Do
    For J := 0 To AGrid.Cols-1 Do
      Begin
        Result := Not (AGrid.Cells[J,i] = '');
        If Not Result Then Break;
      End;
end;