Programmsymbol aus ListBox in TImage laden?

[Johnny Bravo]

Hi,
leider auch nicht.
wird kompiliert, es gibt aber sobald ich eine Datei in die Listbox Laden will eine Zugriffsverletzung.
Wenn ich auf Ok drücke, wird ein Icon angezeigt, aber leider nur das von der kopmilierten Anwendung...

Wie krieg ich die Fehlermeldung weg, und wieso wird das symbol vom programm selber geladen?

ich bin nicht mehr weit entfernt vom ziel, ein icon wird wenigstens angezeigt

EDIT:
so hab einen Fehler gefunden:

Delphi-Quellcode:

  finally
    FreeAndNil(Icon);
    OpenDialog.Free;
    Form4.Show;
  end;
end;

die Zugriffsverletzung ist nur vorhanden, wenn Form4.Show im Code ist.

Hab das dementsprechend, jetz in Form4 geschrieben:

Delphi-Quellcode:

function IconFromFile(const Filename: String; IconNr: Word): HICON;
var
  buffer: array[0..2*MAX_PATH]of Char;
begin
  StrPCopy(buffer, Filename);
  Result := ExtractAssociatedIcon(HInstance, buffer, IconNr);
end;

procedure TForm4.Button1Click(Sender: TObject);
 var IconIndex : Integer;
    h : hIcon;
    S : String;
    Icon : TIcon;
    Bitmap : TBitmap;
    OpenDialog : TOpenDialog;
 begin
     Icon := TIcon.Create;
     IconIndex := 0;
     S := OpenDialog.FileName;
     h := IconFromFile(OpenDialog.FileName,1);
     Icon.Handle := h;
     Form2.ImageList1.AddIcon (Icon);
 try
    Form2.ImageList1.GetIcon(0, Icon);
    Form2.Image1.Canvas.Draw(0, 0, Icon);

 begin
    Form2.ListBox1.Items.Add (Form4.Edit1.Text);         //Fügt die ausgewählte Datei in die Listbox ein
    Form2.Label2.Caption := OpenDialog.FileName;
    Form2.ListBox1.MultiSelect :=False;             //Mehrfach Auswahl ist nich möglich
    Form2.ListBox1.Sorted :=True;
    end;                  //Sortiert die Einträge
  finally
    FreeAndNil(Icon);
    OpenDialog.Free;
end;
end;

jetzt bekomme ich aber kein Icon Angezeigt, der sagt mir jetzt "Bild kann nur geändert werden, wenn es ein Bitmap enthält"
Aber wenn ich das normal auf Form2 anwende, funktionierts halbwegs.

PS:
Der TOpenDialog ist auf Form2.

EDIT:
Ich bekomme anstatt dem Icon einen 16x16 Ordner angezeigt