fehlerhaftes Unterprogramm zur Maximumberechnung?

[Technikus]

Hallo zusammen,
ich bin Anfänger im Delphiprogrammieren und weiß an dieser Stelle nicht mehr weiter.
Vielleicht kann mir jemand helfen (Delphi2005). In der folgenden Funktion
soll ein Maximum berechnet werden, wobei die Werte aus einer StringGrid -Spalte geholt werden sollen. Der Aufruf soll durch ein Unterprogramm erfolgen. In der vorletzten Zeile erscheint der Fehler, dass IntToStr mit (maxwert) nichts anfangen kann.
Ich finde den Fehler nicht, vielleicht kann jemand von euch helfen.

Außerdem suche ich ein Buch, indem für Delphi 2005 Object Pascal beschrieben wird, welches auch für Anfänger zum Selbststudium geeignet ist.

Delphi-Quellcode:

function TForm1.Optimum(n: integer): double;
var
i:integer;
max, leistung:double;
begin
   n:= StrToInt(Edit3_Eingabe_anzahl.Text);
   max:=0;
   with StringGrid1 do
 for i:=1 to n do begin
  leistung:= StrToFloat(StringGrid1.Cells[3,i]);
  if leistung > max then max:= leistung;
 end;
 Result:= max;
end;

procedure TForm1.Button7_opt_APClick(Sender: TObject);
var
 maxwert:double;
 n:integer;
begin
 maxwert:= Optimum(n);
 Edit2_Optimum.Text:= IntToStr(maxwert);
end;

Danke im vorraus
Technikus