Fórum Listbox e arquivo TXT #357352

Procedure TForm1.ListarPasta(Pasta: string; Strings: TStrings);
var
Rec : TSearchRec;
PosEq: Integer;
begin
Strings.Clear;
//Pasta := IncludeTrailingBackSlash(Pasta);
// Note que aqui vc tb pode esccolher a extensão dos arquivos:
if SysUtils.FindFirst(Pasta + ´*.txt´, faAnyFile, Rec) = 0 then
try
repeat
if (Rec.Name <> ´.´) and (Rec.Name<>´..´)then
begin
PosEq:=Pos(´.´,Rec.Name);
Strings.Add(Copy(Rec.Name,1,PosEq-1));
end;
until SysUtils.FindNext(Rec) <> 0;
finally
SysUtils.FindClose(Rec);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListarPasta(´C:\a\´, ListBox1.Items);
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
Memo1.Text := ListBox1.Items.Strings[Listbox1.ItemIndex];
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
var
 f:TextFile;
 linha:String;
begin
   AssignFile(f,´C:\a\´+ListBox1.Items.Strings[Listbox1.ItemIndex]);
   Reset(f);
   While not eof(f) do begin
   Readln(f,linha);

Memo1.Text := linha;
end;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
var
 x:TextFile;
 linha:String;
 caminho: string;
begin
   DirectoryListBox1.Directory := Edit1.Text;
   caminho :=  DirectoryListBox1.Directory+´\´+ListBox1.Items.Strings[Listbox1.ItemIndex]+´.txt´;
   AssignFile(x,caminho);
   Reset(x);
   While not eof(x) do begin
   Readln(x,linha);
   Memo1.Text := Decrypt(linha);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FileListBox1.Directory:=´C:\´; //******Coloque aqui o seu Diretório
end;

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
//é so issso .. e ze finin
    memo1.Lines.LoadFromFile(FileListBox1.FileName);
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
   Memo1.Lines.LoadFromFile(Edit1.Text+´\´+ListBox1.Items.Strings[Listbox1.ItemIndex]+´.txt´);
end;