Stringgrid Zeilensumme in Label ausgeben

[unchained]

Kopiere ich die Funktion:

function GridRowSum(const TheGrid: TStringGrid; RowIndex: integer; IgnoreFixedCols: Boolean = true): double;

an die benannte Stelle werden weitere Fehler angezeigt.
[Fehler] Unit1.pas(140): ';' erwartet, aber '.' gefunden
-------------------------------------------------------------------------------------------------------------
implementation

{$R *.dfm}
function GridRowSum(const TheGrid: TStringGrid; RowIndex: integer; IgnoreFixedCols: Boolean = true): double;

procedure TForm1.Button1Click(Sender: TObject); // Bestellung aufgeben
begin
Label17.Font.Color := clred;





button1.Caption:='Erhalten';
sleep (400);
button1.caption:='Bestellung aufgeben';
inc (anzahl); // Zähler für Kunden