Problem med mappe

Jeg har et lille problem:

Denne kode virker ikke:

Procedure TForm1.Button1Click(Sender: TObject);
begin
with ListView1 do
begin
dir(\'c:\\windows\\\');
if dir(\'C:\\windows\\\') then
show Icons;

procedure TForm1.LsitView1Change(Sender: TObject);
if DoubleClick then
exec(dir, file);
  end;
end;
end.

Hvis nogen af jer, kan komme med et svar på, hvordan man laver sådan et program, som virker sådan, at når man klikker på en knap,
bliver ikonerne og mapperne i c:\\windows\\ vist i ListView1. Hvis man så dobbelklikker på ikonerne, eller mapperne, bliver mapperne/filerne åbnet.

Koden må IKKE indeholde Function, og en \"hjemmelavede\" procedurer.

LSN