[Delphi] Konfiguration abspeichern

var a,b,c,d,e: String;

procedure LadeVars;
begin
Memo1.Lines.LoadFromFile("C:\Config.cgf");
a:=Memo1.Lines[0]; //Achtung bei Null anfangen!
b:=Memo1.Lines[1];
....
end;

procedure SaveCFG(Filename : String);
var
 F : TFileStream;
 S : String:
 i : longint:
begin
 F := TFileStream.Create(Filename, fmCreate or fmShareDenyNone);
 S := 'Blabla';
 i := Length(s);
 F.Write(l, SizeOf(LongInt));
 F.Write(PChar(s)^, i);
 F.Free;
end;

procedure LoadCFG(Filename : String);
var
 F : TFileStream;
 S : String:
 i : longint:
begin
 F := TFileStream.Create(Filename, fmOpenRead or fmShareDenyNone);
 F.Read(l, SizeOf(LongInt));
 if I = 0 then
 raise Exception.Create('Stream-Lesefehler');
 SetLength(S, I);
 F.Read(PChar(s)^, i);
 F.Free;
end;