1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

function TMFa.GetImageFile(Index:Integer):TStream;
var
  Datei:TStream;
  Datei2:TStream;
  DateiName:String;
begin
  try
    DateiName:=FileName;

    with ExtractFileHeader(Index) do begin
      Datei := TFileStream.Create(GetExeDir + 'temp\' + ExtractFileName(DateiName)+'.tmp',fmOpenRead); // Dateiarichv
      Datei.Seek(APOS,soFromBeginning);
      Datei2:=TMemoryStream.Create;
      Datei2.CopyFrom(Datei,FileSize);
      result:=Datei2;
    end;
  finally
    Datei.Free;
    Datei2.Free;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.BitBtn8Click(Sender: TObject);
var
  test:TBitmap;
begin
  a.FileName:=Edit1.Text;
 
  test:=TBitmap.Create;
  test.LoadFromStream( a.GetImageFile(1) );
  image1.Picture.Graphic:=test;

end;                    

1:
2:

  objekt.free;
  objekt:=NIL;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
var sl1,sl2:Tstringlist;
begin
  sl1:=TStringList.Create;
  sl2:=TStringList.Create;
  sl1.free;
  FreeAndNil(sl2);

  if sl1=Nil then Memo1.Lines.Add('sl1=Nil')
             else Memo1.Lines.Add('sl1<>Nil');
  if sl2=Nil then Memo1.Lines.Add('sl2=Nil')
             else Memo1.Lines.Add('sl2<>Nil');
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function Rueckgabe:Tmyobjekt;
  begin
    result:=tmyobjekt.create;
    ...
  end;
procedure machwas;
var myobjekt:Tmyobjekt;
  begin
    myobjekt:=rueckgabe;
    ...
    machwas(myobjekt);
    ...
    myobjekt.free;
  end;                    

1:

  image1.Picture.Assign(test);                    

1:

datei2.Seek(0,soFromBeginning);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function TMFa.GetImageFile(Index:Integer):TMemoryStream; 
var 
  Datei:TFileStream; 
  DateiName:String; 
begin 
  try 
    DateiName:=FileName; 
    with ExtractFileHeader(Index) do begin 
      Datei := TFileStream.Create(GetExeDir + 'temp\' + ExtractFileName(DateiName)+'.tmp',fmOpenRead); // Dateiarichv 
      Datei.Seek(APOS,soFromBeginning); 
      Result:=TMemoryStream.Create; 
      Result.CopyFrom(Datei,FileSize); 
      Result.Seek(0,soFromBeginning);
    end; 
  finally 
    Datei.Free; 
  end; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

var
  test:TBitmap;
begin
  a.FileName:=Edit1.Text;

  test:=TBitmap.Create;
  test.LoadFromStream( a.GetStream(0) );
  image1.Picture.Assign(test);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  test:TBitmap;
  stream:Tstream;
begin
  a.FileName:=Edit1.Text;

  test:=TBitmap.Create;
  stream:=a.GetStream(0);
  test.LoadFromStream( stream );
  stream.free;
  image1.Picture.Assign(test);
  test.free;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

Procedure TMFa.GetImageFile(Index:Integer, bmp:Tbitmap);
var
  Datei:TStream;
  DateiName:String;
begin
  try
    DateiName:=FileName;

    with ExtractFileHeader(Index) do begin
      Datei := TFileStream.Create(GetExeDir + 'temp\' + ExtractFileName(DateiName)+'.tmp',fmOpenRead); // Dateiarichv
      Datei.Seek(APOS,soFromBeginning);
      bmp.loadfromstream(datei);
    end;
  finally
    Datei.Free;
  end;
end;

Procedure Aufruf;
Var test:Tbitmap;
  begin  
     test:=Tbitmap.create;
     GetImageFile(0,test); //bereits erzeugte bitmap übergeben
     image1.Picture.Assign(test);
     test.free;    
  end;                    

1:

Stream.Seek(StartPos,soFromBeginning);                    

1:

Stream2.CopyFrom(Stream1,FileSize);                    

1:

Stream2.Seek(0,soFromBeginning);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

function TMFA.ExtractFileHeader(Index:Integer):TDateiInfo;  // List den datei header hast
var
  DateiA:TStream;
  DateiAW:TReader;
  DateiSignatur:String;
  i,len:Integer;
begin
  DateiA:=TFileStream.Create(FileName, fmOpenRead);
  DateiHeader:=TStringList.Create;

  DateiAW:=TReader.Create(DateiA, 100);
  DateiSignatur:=DateiAW.ReadStr;

  if DateiSignatur <> FileDes then begin
    ShowMessage('Es ist keine FileArichver Datei !');
    Exit;
  end;
  len:=DateiAW.ReadInteger;
  DateiCount:=Len;

  for i:=0 to Len do DateiHeader.Add(DateiAW.ReadStr);
  
  result.FileName:=GetToken(DateiHeader.Strings[Index],';',1);
  result.CreateDateTime:=StrToDateTime(GetToken(DateiHeader.Strings[Index],';',2));
  result.usesDateTime:=StrToDateTime(GetToken(DateiHeader.Strings[Index],';',3));
  result.WriteusesDateTime:=StrToDateTime(GetToken(DateiHeader.Strings[Index],';',4));
  result.FileSize:=StrToInt(GetToken(DateiHeader.Strings[Index],';',5));
  result.FileDes:=GetToken(DateiHeader.Strings[Index],';',6);
  result.APos:=DateiAW.position + StrToInt(GetToken(DateiHeader.Strings[Index],';',7));
  result.Kometare:=GetToken(DateiHeader.Strings[Index],';',8);

  DateiA.Free;
end;