[Yurk@]

Я тя немножко дополню:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,s,ss:integer;
arr:array[0..4,0..4]of integer;

begin
ss:=0;
s:=0;
for i:=0 to 4 do
for j:=0 to 4 do
begin
if Length(StringGrid1.Cells[i,j])<>0 then //проверка на наличие текста в ячейке (не исключено что его там нет)
arr[i,j]:=StrToInt(StringGrid1.Cells[i,j]);
end;

for i:=0 to 4 do
for j:=0 to 4 do
begin
if arr[i,j]=arr[i,j+1] then
ss:=ss+1;
if ss>s then
s:=ss;
ss:=0;
end;
end;

Кста, Oleg все верно сказал!
Поддерживаю!
НИКАКОГО 5 там нет !