Определение пробегов Delphi

[sllh_111]

Здраствуйте помогите пожалуйста доделать задачу
Условие:

Разработка приложения в интегрированной среде Delphi для предметной области «Определение расчётных пробегов до ТО-1».
Задание: Составить схему алгоритма и написать программу по определению расчётных пробегов до ТО-1. Отобразить график, полученной зависимости.

---------------------Таблица-----------------------------------

Параметры расчёта -- Формулы
Li -- Li = L* K1* K3
n1 -- n1 = L / F
L -- L = F * n
-----------------------------------------------------------------
- нормативная периодичность TO-1; =4000 км;
- корректирующий коэффициент, зависящий от условий эксплуата-ции;
K1 =0,8;
K3 =0,9;
F =213 км.
n = 40-75 км/ч.

Вот мои наработки:

unit Kursach;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
BitBtn1: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Label5: TLabel;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var L,K1,K3,Va,F,Li,n,n1 :real;
var nn, nk,p:integer;
begin
L:=strtofloat(edit1.Text);
k1:=strtofloat(edit2.Text);
k3:=strtofloat(edit3.Text);
F:=strtofloat(edit4.Text);
n:=strtofloat(edit5.Text);
nn:=strtoint(inputbox('ввод начальной частоты','nn','0'));
nk:=strtoint(inputbox('ввод начальной частоты','nk','0'));



for p:= nn to nk do begin
Li:=L * K1 * K3;
n1:=L/F;
L:= F*n;
Listbox1.Items.add(floattostrf(p,ff fixed,6,3)); {??здесь незнаю как делать }
end;
readln;


end; end.

[sllh_111]

есть хоть какие-нибудь варианты? очень надо...