Memo Delphi

[kop]

Здравствуйте!
Пытаюсь вывести в memo каждое значение X, с помощью функции в итоге функция возвращает последнее значение X и выводит только его..
Как можно сделать, вывод в Memo каждое значение Х? с функцией никак не получается((

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    mmo1: TMemo;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}
  function Kos ( a:Real):Real;
  var X:Real;
  I:integer;
  begin
     X:=1;
     for i:=1 to 3 do
     begin
       result:=X;
       X:=X+1;
     end;
  end;

procedure TForm1.btn1Click(Sender: TObject);
var g,d:real;
begin
    d:=5;
   g:=Kos(d);
 mmo1.Lines.Add('Ñòðîêà '+FloatToStr(g));
end;

end.

[phomm]

Ну в самом грубом случае можно в функции после x := x+1; написать Form1.mmo1. lines.add('Ñòðîêà '+FloatToStr(x)); а из кнопки это же убрать.
Менее грубым будет указание принадлежности функции форме, тогда можно сразу обращаться к мемо в функции.
Ещё интересный метод - передача свойства Lines в функцию и манипулирование им там как надо.

Ну а в общем случае без задания тяжело сказать как лучше поступить.

[kop]

Сообщение от phomm

Ну в самом грубом случае можно в функции после x := x+1; написать Form1.mmo1. lines.add('Ñòðîêà '+FloatToStr(x)); а из кнопки это же убрать.
Менее грубым будет указание принадлежности функции форме, тогда можно сразу обращаться к мемо в функции.
Ещё интересный метод - передача свойства Lines в функцию и манипулирование им там как надо.

Ну а в общем случае без задания тяжело сказать как лучше поступить.

Задание - просто выводить ка каждой итерации новое значение X, через функцию... функци должна быть универсальной ( просто есть одно задание, мне нужно освоить только это момент)...
передача свойства Lines в функцию и манипулирование им там как надо?
а как это реализуется?

[maxsept]

  procedure Kos (const b:TStrings; a:Real);
  var X:Real;
  I:integer;
  begin
     assert(assigned(b));
     X:=1;
     for i:=1 to 3 do
     begin
       b.add(IntToStr(x));
       X:=X+1;
     end;
  end;

procedure TForm1.btn1Click(Sender: TObject);
var g,d:real;
begin
    d:=5;
   kos(mmo1.Lines,d);
end;