Unterprogramm mit Stringgrid

[floralis]

Danke!
Habe es geschafft...zumindest läuft es mit Unterprogramm. Ich hoffe, dass es auch korrekt ist?

procedure MinMax (sg:TStringgrid; iCol:integer ;
var iGRoesse_min,iGroesse_max: integer;
var iName_max,iVorName_max,iName_min,iVorname_min:stri ng);

var x: integer;
var iGRoesse: integer;
var iName, iVorname:string;
begin
x :=1;
iCol:=1;
iName :=sg.Cells[iCol,x];
iVorName :=sg.Cells[iCol+1,x];
iGroesse:=StrToInt(sg.Cells[iCol+2,x]);

iName_min :=iName;
iVorName_min :=iVorname;
iGroesse_min:=iGroesse;

iName_max :=iName;
iVorName_max :=iVorname;
iGroesse_max:=iGroesse;

iCol:=1;
iName :=sg.Cells[iCol,x+1];

while iName <> '' do
begin
iVorname :=sg.Cells[iCol+1,x+1];
iGroesse :=StrToInt(sg.Cells[iCol+2,x+1]);
if iGroesse >= iGroesse_max then
begin
iName_max :=iName ;
iVorName_max :=iVorname;
iGroesse_max :=iGroesse;
end;
if iGroesse < iGroesse_min then
begin
iName_min :=iName ;
iVorName_min :=iVorname;
iGroesse_min :=iGroesse;
end;
x :=x+1;
iName :=sg.Cells[iCol,x+1];
end;
end;