Automatický název souboru v delphi

[Zeppelin]

Tak Vaše rady již ovládám a daří se mi je i rozšiřovat-systém jakým jste na to přišly už chápu a vše mi fachá. Prosil bych ještě (snad poslední ) dotaz, a sice jednoduchý a očekávatelný jak tímto způsobem ty soubory načíst.... zkusil jsem jen zaměnit 'SaveToFile' za 'LoadFromFile' a ikdyž to zdánlivě funguje-Delphi zkompiluje a žádné chyby při mačkání tlačítka 'Načíst' nehází, tak v Memu se text neobjevý... Věřím, že je to prkotina. Fakt moooc děkuju.
[syntax lang=delphi]procedure TForm1.NacistClick(Sender: TObject);
var st:TStringList;
Polozka:string;
begin
st:=TStringList.Create;
st.Add(Text_samec.Text);
Polozka:=Trim(Rok_samec.Text);
st.LoadFromFile(ExtractFilePath(Application.ExeName)
+'/'+Polozka+'/'+Polozka+'.txt');[/syntax]

[Sender]

[syntax lang=delphi]
procedure TForm1.Button4Click(Sender: TObject);
var st:TStringList;
Polozka:string;
begin
st:=TStringList.Create;
Polozka:=Trim(ComboBox1.Text);
if (Polozka<>'')then
if (FileExists(ExtractFilePath(Application.ExeName)+'\'+Polozka+'\'+Polozka+'.txt')) then
begin
st.LoadFromFile(ExtractFilePath(Application.ExeName)+'\'+Polozka+'\'+Polozka+'.txt');
Memo1.Lines.Text:=st.Text;
end
else ShowMessage('Chyba !');
st.Free;
end;
[/syntax]

[Zeppelin]

Naprosto úžasný! Moc děkuji všem a označuji téma za vyřešené.