Delphi - Verificar se StringGrid está vazio

Prospect,

Você vai ter que tentar algo como o informado abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
valor: string;
begin
valor := '';
for i := 0 to Pred(StringGrid1.RowCount) do
begin
valor := valor + StringGrid1.Cells[2,i];
end;
if valor <> '' then
begin
ShowMessage('Há dados!');
end;
end;

Espero ter ajudado!

Um abraço,
ITO