Es heißt zwar "eine Frage - ein Thread", aber du musst den zweiten nicht auch noch im falschen Bereich starten
.
Delphi-Quellcode:
var Bit: TBitmap;
begin
Bit := TBitmap.Create;
OpenDialog.Options := [ofFileMustExist];
if OpenDialog.Execute then
try
Bit.LoadfromFile(OpenDialog.FileName);
Form1.Canvas.Draw(0, 0, Bit);
SaveDialog.Filename := OpenDialog.FileName;
FormFile.Caption := ExtractFileName (OpenDialog.FileName);
except
Application.MessageBox ('Datei konnte nicht geladen werden!',
'Fehler', MB_OK);
end; {Try}
Bit.Free;
end;