Programalama > DELPHI

private

   i:integer; { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);


begin
edit1.Text := memo1.Lines[i];
i:=i+1;
if i=5 then i:=0;

end;

end.

nazım demir
demirnazim@hotmail.com