mein Programm kontroliert auch die leeren Zelle!

[PeterKiers]

Ich habe das Problem schon selbst gelöst.

Vielen Dank für die Hilfe

procedure TFormServers.NextServer;
begin
with GridServers do
if Row < Pred(RowCount) then Row := Succ(Row)
else if Col < Pred(ColCount) then
begin
Row := FixedRows;
Col := Succ(Col);
end;
with GridServers do
begin
if (Cells[Col,Row] <> '') then
else
StartWaiting;
end;
end;