Nicht bekannte Bilddatei in Timage laden

[Sir Rufo]

Oder man macht es sich einfacher mit

Delphi-Quellcode:

procedure Tfm_main.Button2Click(Sender: TObject);
var
  LFileName : string;
  LStream : TStream;
begin
  LFileName := 'D:\a.thumb';
  LStream := TFileStream.Create( LFileName, fmOpenRead );
  try
    ImageControl1.Bitmap.LoadFromStream( LStream );
  finally
    LStream.Free;
  end;
end;