Maximum aus einer StringGrid Spalte berechnen

[Technikus]

Hallo K.,
ich habe unter private
die Eintragung
function Optimum(n:Integer): Double; gemacht.

Dann habe ich den code wie folgt geändert:

Delphi-Quellcode:

const c= 1000;
type
Tleistung= array[1..c] of double;
{Was ich hier ändern soll, habe ich aus deinem Text nicht verstanden}

function TForm1.Optimum(n: integer): double;

var
i:integer;
max:double;
leistung:Tleistung;
begin
 max:=0;
 for i:=1 to n do begin
  leistung:= StrToFloat(StringGrid1.Cells[3,i]);
{Fehlermeldung: E2010 Inkompatible Typen: 'Tleistung' und 'Extended'}
  if leistung[i] > max then max:= leistung[i];
 end;
 Result:= max;
end;

procedure TForm1.Button7_opt_APClick(Sender: TObject);
var
n:integer;
begin
Optimum(n: integer): double;{fkt.nicht, was ist daran so falsch?}
end;

danke für die Hilfe
Gruß
Technikus