Record abspeichern-TFileStream??

[watwerbistdudenn]

Servus,
bevor ihr mich alle steinigt ich hab schon im forum danach gesucht und es gibt auch echt viel darüber aber irgendwie funktioniert das net bei mir.

hier mal der code:

Delphi-Quellcode:

type
tbuddy = record
  nick, geb, hobby, beruf, ort  : string;
  foto: TJpegImage;
  gallerie: array[1..10] of TJpegImage;
end;

var
myprofil: TBuddy;

procedure tform1.save;
var
datei:TFileStream;
begin
datei:=TFileStream.Create(Pchar('test.txt'),fmCreate);
Datei.WriteBuffer(myprofil,Sizeof(myprofil));
datei.Free;
end;

Wenn ich das jetzt aber speicher ist die datei immer 64 byte groß egal wie gros die bilder sind.

In myprofil steht auch was drin daran ligt es nicht.

Wie kann ich es denn richtig speichern und wieder laden??

Schon mal danke im vorraus!!

ralf