procedure TForm1.Button1Click(Sender: TObject);
var
i, TopPosition : integer;
FileList : TStrings;
begin
if OpenDlg.Execute then
begin
FileList := TStringList.Create;
try
FileList.LoadFromFile(OpenDlg.FileName);
TopPosition := 8;
for i := 0 to FileList.Count - 1 do
begin
Image1.Canvas.TextOut(8, TopPosition, FileList.Strings);
var
tmpStream: TStream;
bmp: TBitmap
begin
if OpenDlg.Execute then
begin
if FileExists(OpenDlg.FileName) then
begin
tmpStream := TMemoryStream.Create;
tmpStream.LoadFromFile(OpenDlg.FileName);
tmpStream.Position := 0;
bmp := TBitmap.Create;
bmp.LoadFromStream(tmpStream);
self.Canvas.Draw(x,y,bmp.canvas)
end;
end;