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:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:

function AttachToFile(const AFileName: string; MemoryStream: TMemoryStream): Boolean; 
var 
aStream: TFileStream; 
iSize: Integer; 
begin 
Result := False; 
if not FileExists(AFileName) then 
Exit; 
try 
aStream := TFileStream.Create(AFileName, fmOpenWrite or fmShareDenyWrite); 
MemoryStream.Seek(0, soFromBeginning); 
// seek to end of File 
// ans Ende der Datei Seeken 
aStream.Seek(0, soFromEnd); 
// copy data from MemoryStream 
// Daten vom MemoryStream kopieren 
aStream.CopyFrom(MemoryStream, 0); 
// save Stream-Size 
// die Streamgröße speichern 
iSize := MemoryStream.Size + SizeOf(Integer); 
aStream.Write(iSize, SizeOf(iSize)); 
finally 
aStream.Free; 
end; 
Result := True; 
end; 

function LoadFromFile(const AFileName: string; MemoryStream: TMemoryStream): Boolean; 
var 
aStream: TFileStream; 
iSize: Integer; 
begin 
Result := False; 
if not FileExists(AFileName) then 
Exit; 

try 
aStream := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite); 
// seek to position where Stream-Size is saved 
// zur Position seeken wo Streamgröße gespeichert 
aStream.Seek(-SizeOf(Integer), soFromEnd); 
aStream.Read(iSize, SizeOf(iSize)); 
if iSize > aStream.Size then 
begin 
aStream.Free; 
Exit; 
end; 
// seek to position where data is saved 
// zur Position seeken an der die Daten abgelegt sind 
aStream.Seek(-iSize, soFromEnd); 
MemoryStream.SetSize(iSize - SizeOf(Integer)); 
MemoryStream.CopyFrom(aStream, iSize - SizeOf(iSize)); 
MemoryStream.Seek(0, soFromBeginning); 
finally 
aStream.Free; 
end; 
Result := True; 
end;

procedure TForm1.SaveClick(Sender: TObject); 
var 
aStream: TMemoryStream; 
begin 
aStream := TMemoryStream.Create; 
aStream.SaveToFile(' ?????? '); Wie kann er hier den Dateinamen ermitteln?
// AttachToFile('Test.exe', aStream); 
aStream.Free; 
end; 

procedure TForm1.LoadClick(Sender: TObject); 
var 
aStream: TMemoryStream; 
begin 
aStream := TMemoryStream.Create; 
LoadFromFile('Test.exe', aStream); Wie kann er hier den Dateinamen reinschreiben
Memo1.Lines.LoadFromStream(aStream); 
aStream.Free; 
end;                    

1:
2:
3:

Wie kann er den Dateinamen in der Procedure mitreinschreiben und auch wieder rausnehen? 
Es soll der Dateiname auch mitreingeschrieben werden sowie 
er soll das wieder nehmen und die Datei wieder richtig benennen.                    

1:

function ~Name~(~Parameter~: ~Typ~;...)~ergebnisstyp;                    

1:
2:
3:
4:
5:
6:

Function firstletter(s: string): char;
begin
Result := s[0];
//oder
firstletter := s[0]
end;