[madiazg]

Muchas gracias por la respuesta. Me ha aclarado como obtener la imagen del icono:

procedure TForm1.Button2Click(Sender: TObject);
var
  IconIndex: word;
  Buffer: array[0..2048] of char;
  Icono: TIcon;
begin
  Icono := Ticon.create;
  StrCopy(@Buffer, 'C:\Windows\Help\Windows.hlp');
  IconIndex := 0;
  Icono.Handle := ExtractAssociatedIcon(HInstance, Buffer, IconIndex);
  if Icono.Handle <> 0 then
  begin
    Image1.Picture.Icon := Icono;
  end;
end;

Gracias y saludos...
Miguel Angel