Salnhack,
Revisa este código:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
OpenPictureDialog : TOpenPictureDialog;
begin
OpenPictureDialog := TOpenPictureDialog.Create(Self);
OpenPictureDialog.InitialDir := GetCurrentDir;
OpenPictureDialog.Options := [ofFileMustExist];
OpenPictureDialog.Filter := 'Icons Files|*.ico|Bmp Files|*.bmp';
OpenPictureDialog.FilterIndex := 1;
if OpenPictureDialog.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog.FileName);
OpenPictureDialog.Free;
end;
El código anterior funciona correctamente con archivos de tipo ICO y BMP.
Verifica que tus archivos con extensión ICO correspondan al tipo que sugiere la extención y no presenten problemas en su estructura.
Espero sea útil
Nelson.