Задача по погашению кредиту

[Танюха Ю]

я с delpi только начинаю знакомится учусь самостояятельно по учебнику. и поэтому не имею представления как в нем описать кнопку правка.

[GenniY]

Танюша, выложите то, что вы уже сделали.
Или покажите конкретное задние, которое вы получили от препода.

[ОДИНОЧЕСТВО В СЕТИ]

я с delpi только начинаю знакомится учусь самостояятельно по учебнику. и поэтому не имею представления как в нем описать кнопку правка.

может не стоит продолжать дальнейшее знакомство с delphi!

вот держите!
вот код

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var k:Real;
    co:Real;
    s:Integer;
    km:Integer;
    i:Integer;
    v:Real;
    begin
  if (edt1.Text='0') or (edt2.Text='0') or (edt1.Text='0')
      or (edt1.Text='') or (edt2.Text='') or (edt1.Text='') then
      begin
        ShowMessage('Заполните поля!!!!');
        Exit;
      end;
 k:=StrToFloat(edt1.text);
 co:=StrToFloat(edt2.text);
 s:=StrToInt(edt3.text);
 km:=s*12;
 strngrd1.ColCount:=km;
 for i:=1 to s do
  k:=k*(1+co/100);
 v:=Round(k/km*100)/100;
 cht1.Visible:=True;
 cht1.Series[0].Clear;
 for i:=0 to km-1 do begin
   strngrd1.Cells[i,0]:=IntToStr(i+1)+' месяц';
   strngrd1.Cells[i,1]:=FloatToStr(v); end;
   lbl1.Caption:='Сумма к погашению:'+floattostr(k)+' руб.';
   for i:=1 to km do begin
    k:=k-v;
  cht1.Series[0].AddXY(i, k,'',clBlue);


  end;
  lbl1.Caption:= lbl1.Caption+ ' Срок кредита:'+inttostr(km)+' мес.';
    lbl1.Caption:= lbl1.Caption+ ' Ежемесячный платеж:'+floattostr(v)+' руб.';
  end;
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);

begin
  if Key = ',' then
    Key := DecimalSeparator; 
  if Key = '.' then
    Key := DecimalSeparator;

  if not (Key in ['0'..'9',DecimalSeparator,#8,#13]) 

    then 
  begin
      Key := #0; 
      MessageBeep (MB_OK);
  end;

 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
lbl1.Caption:='';

end;

end.