Cuadro de amortización de Prestamos

[Delphitest]

Buenas tardes,

ya estoy por aquí de nuevo, tuve que seguir con otras cosas y deje de lado lo del cuadro de amortización pero ya he llegado a este punto y necesito continuar con ello.

Estoy haciendo algo mal pero no veo qué. Pretendo que a través del For... se generen las lineas del cuadro de amortización menos la última y eso sí sale bien, pero después de esas líneas tengo que generar la última donde se indica el importe amortizado de tal manera que el capital pendiente quede a cero.

No entiendo porqué pero no consigo generar esa última línea.

Pongo el código y adjunto el fichero por si alguien ve algo que no este haciendo bien y pudiese orientarme para solucionarlo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 Lineas : Integer;
 NumPlazos : Integer;
 ImporteCuota : Double;
 ImporteIntereses : Double;
 ImporteAmortizacion : Double;
 ImporteAmortizado : Double;
 ImportePendiente : Double;
begin
if Plazos.Text = '' then
  ShowMessage('Debe indicar el número de plazos del préstamo')
Else
  Begin
  NumPlazos := Strtoint(Plazos.Text) ;
  ImporteCuota := StrToFloat(ImportePrestamo.Text)*(StrtoFloat(TipodeInteres.Text)/12)/100;
  ImportePendiente := StrtoFloat(ImportePrestamo.Text);
  CuadrodeAmortizacion.RowCount := NumPlazos ;
  For  Lineas := 1 to NumPlazos  do
    Begin
      CuadrodeAmortizacion.Cells[0,Lineas] := InttoStr(Lineas);
      CuadrodeAmortizacion.Cells[1,Lineas] := FormatFloat('#,##0.00 €',ImporteCuota);
      CuadrodeAmortizacion.Cells[2,Lineas] := FormatFloat('#,##0.00 €',ImporteCuota);
      CuadrodeAmortizacion.Cells[3,Lineas] := '0';
      CuadrodeAmortizacion.Cells[4,Lineas] := '0';
      CuadrodeAmortizacion.Cells[5,Lineas] := FormatFloat('#,##0.00 €',ImportePendiente);
     End;
  end;
      Lineas := Lineas-1;
      CuadrodeAmortizacion.Cells[0,Lineas] := InttoStr(Lineas);
      CuadrodeAmortizacion.Cells[1,Lineas] := FormatFloat('#,##0.00 €',ImporteCuota+ImportePendiente);
      CuadrodeAmortizacion.Cells[2,Lineas] := FormatFloat('#,##0.00 €',ImporteCuota);
      CuadrodeAmortizacion.Cells[3,Lineas] := FormatFloat('#,##0.00 €',ImportePendiente);
      CuadrodeAmortizacion.Cells[4,Lineas] := FormatFloat('#,##0.00 €',ImportePendiente);
      CuadrodeAmortizacion.Cells[5,Lineas] := '0';
end;