z czystego C na Delphi

#define max 300
#define min 0
#define skok 20

main()
{
float fare;

for(fare=min;fare<=max;fare+=skok)
{
printf("%4.0f  -  %6.1f\n", fare, 5.0/9.0*(fare-32));
}
return;
}

Oto kod, który chcĘ by się wykonał w Delphi tyle tylko że dodawał by się do listbox1.items, a uruchamiał się po nacisnieciu buttona czyli co dac w button 1 by uzyskac ten wefekt z czystego C.
Jeśli nierozumiecie to sory, ale sie spiesze na autobus. Jak coś to napisze o co mi chodziło dokładniej jak wróce.
Z góry dzieki cześc [soczek]

ja Cie nie czaje....
chodzi Ci o

listbox1.items.add('kuku');

?

Czyżby chodziło o to?

const
    min = 0;
    max = 300;
    skok = 20;
var
    i : integer;
begin
    i := min;
    repeat
       listbox1.Items.Add('%4.0f  -  %6.1f' + floattostr(i + 5.0/9.0*(i-32)))
       i := i + skok;
    until i >= max;
end;

chyba raczej to

w button click:

const 
  max=300;
  min=0;
  skok=20;
var
  fare:integer;
begin
  fare:=min;
  repeat
    listbox.items.add(formatfloat('####',fare)+'    '+
      formatfloat('######.#',5.0/9.0*(fare-32)));
    fare:=fare+skok
  until fare>max
end;

Oto właśnie ostatnie chodziło dzięki wielkie.
P.S.
NA początku powinno być wyświetlane też 0 lecz go nie ma ale już z tym sobie poradze. Dzieki wielkie