Finally

fs.Free;

end;

end;

Загрузка данных должна происходить в обратном порядке.

procedure TForm1.acOpenExecute(Sender: TObject);

var

fs: TFileStream;

Sign: array[0..3] of Char;

Count, i, index: Integer;

imgTemp: TImage;

ms: TMemoryStream;

begin

fs:= TFileStream.Create(FileName, fmOpenRead);

try

// Читаем проект

fs.Seek(0, soBeginning);

fs.Read(Sign, 8);

if Sign <> 'proj' then

begin

Application.MessageBox('Сигнатура не соответствует файлу проекта.',

'Ошибка открытия', MB_OK + MB_ICONERROR);

fs.Free;

Exit;

end;

fs.Read(Count, SizeOf(Count));

for i:= 0 to Count - 1 do

begin

imgTemp:= TImage.Create(plClient);

// Левая позиция

fs.Read(index, SizeOf(index));

imgTemp.Left:= index;

// Верхняя позиция

fs.Read(index, SizeOf(index));

imgTemp.Top:= index;

// Картинка

fs.Read(index, SizeOf(index));

ms:= TMemoryStream.Create;

ms.CopyFrom(fs, index);

ms.Seek(0, soFromBeginning);

imgTemp.Picture.Bitmap.LoadFromStream(ms);

// Устанавливаем основные параметры компонента

imgTemp.AutoSize:= True;

imgTemp.Transparent:= True;

plClient.InsertControl(imgTemp);

end;

finally

fs.Free;

end;

end;

Функции и процедуры для работы с файлами, папками, дисками

AssignFile procedure (AssignFile1, AssignFile2)

ChDir procedure

CloseFile procedure

CreateDir function

DeleteFile function

DirectoryExists function

DiskFree function

DiskSize function

FileAge function

FileClose procedure

FileCreate function

FileDateToDateTime function

FileExists function

FileGetAttr function

FileGetDate function

FileIsReadOnly function

FileOpen function

FileRead function

FileSearch function

FileSeek function

FileSetAttr function

FileSetDate function

FileSetReadOnly function

FileWrite function

FindClose procedure

FindFirst function

FindNext function

ForceDirectories function

GetCurrentDir function

GetDir procedure

RemoveDir function

RenameFile function

SetCurrentDir function

ChangeFileExt function

DosPathToUnixPath function

ExcludeTrailingBackslash function

ExcludeTrailingPathDelimiter function

ExpandFileName function

ExpandFileNameCase function

ExpandUNCFileName function

ExtractFileDir function

ExtractFileDrive function

ExtractFileExt function

ExtractFileName function

ExtractFilePath function

ExtractRelativePath function

ExtractShortPathName function

IncludeTrailingBackslash function

IncludeTrailingPathDelimiter function

IsPathDelimiter function

MatchesMask function

MinimizeName function

ProcessPath procedure

UnixPathToDosPath function

SelectDirectory function

GetLogicalDriveStrings function

GetDriveType function

GetDiskFreeSpaceEx function

GetWindowsDirectory

GetVolumelnformation function

ShFileOperation function

DragAcceptFiles procedure

DragQueryFile function