kredittilgung

[TechnikerHC]

moin leute!
Ich muss im Unterricht ein programm zu kredittilgung ( mit stringgrid) schreiben. Ich hab das auch soweit hinbekommen, aber irgendwie läuft es nich...bitte um hilfe!

so siehts bis jetzt aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i, Jahr, m : Integer ;
kredit, zinsen, Rate, Tilgung, Restschuld : real ;

begin
  Kredit:=strtofloat(edit1.text);
  zinsen:=strtofloat(edit4.text);
  Jahr:=strtoint(edit3.text);
  rate:=strtofloat(edit2.text);
  m:=jahr*12;
  i:=1;
for i:=1 to m do
begin
  Zinsen:=(Kredit*zinsen)/(100*12);
  Tilgung:= Rate-Zinsen;
  Restschuld:=Kredit-Tilgung;
end;
  with form1.StringGrid1 do
    begin
      cells[0,i]:=inttostr(i);
      cells[1,i]:=floattostr(zinsen);
      cells[2,i]:=floattostr(tilgung);
      cells[3,i]:=floattostr(restschuld);

      Kredit:=restschuld;
      rowcount:=m;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

  StringGrid1.Cells[0,0]:='Monat';
  StringGrid1.Cells[1,0]:='Zinsen';
  StringGrid1.Cells[2,0]:='Tilgung';
  StringGrid1.Cells[3,0]:='Restschuld';


end;



procedure TForm1.Button2Click(Sender: TObject);
begin
form1.close
end;

end.

folgende fehler werden bei start des programms angezeigt:
[Hinweis] Unit1.pas(65): Auf 'kredit' zugewiesener Wert wird niemals benutzt
[Warnung] Unit1.pas(60): FOR-Schleifenvariable 'i' kann nach Durchlauf undefiniert sein
[Hinweis] Unit1.pas(51): Auf 'i' zugewiesener Wert wird niemals benutzt
[Warnung] Unit1.pas(62): Variable 'Tilgung' ist möglicherweise nicht initialisiert worden
[Warnung] Unit1.pas(63): Variable 'Restschuld' ist möglicherweise nicht initialisiert worden

(hab mir schon posts zu diesem thema durchgelesen, die führn mich aber leider nich zur lösung meines problems!)