Fórum StringList (Adicionar linhas no memo) #465840

Bom dia pessoal,

não estou conseguindo adicionar as linhas no Memo, como sou iniciante tô apanhando muito ...rssrs

olha o código:

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;

type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
Label1: TLabel;
Edit1: TEdit;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
Button2: TButton;
procedure BitBtn1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin
if OpenDialog1.Execute then
begin
OpenDialog1.FileName;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Lista : TStringList;
ind : integer;

begin

try
Lista := TStringList.Create;
Lista.LoadFromFile(OpenDialog1.filename);
for ind:= 0 to Lista.Count-1 do
memo1.Clear;
memo1.Refresh;
Memo1.lines.Add(Lista[ind]);

finally
Lista.Free;
Lista:=nil;
end;
end;

end.


por favor me deem alguma dica.

Abraço