quote:

var
Form1: TForm1;
var n,i:integer;
t1,t2,t3:real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Clear;
n:=strtoint(listbox1.items.strings[listbox1.itemindex]);
t1:=0;
t2:=1;
t3:=1;
for i:=1 to n do
begin
Memo1.Lines.Add(floattostr(t3));
t3:=t2+t1;
t1:=t2;
t2:=t3;
end;
end;

end.