Pomoc so suborom v delphi

feromakovi

Zdravim, prosim vas mam problem v delphi nechapem ani trosku preco mi nechce zapisovat do suboru nadeklarovaneho ako: sub:textfile;
Ak by sa niekomu pozret sa na to...ked dam v procedure s opendialogom pisat do textaku...ma to byt program na seminar nieco ako databaza telefonych cisel...uz mi to znicilo aj klavesnicu
Dakujem za ochotu.

vlastne by som konkretnejsie chcel vzdy po kliknuti na subor otvorit ulozit cestu suboru ktory som otvoril opendialogom do texttoveho suboru: sub:textfile;

a ani zasvet mi nefunguje ked dam v tej procedure, ktora sa spusti po kliknuti na otvorit.
je tam nieco taketo:

Kód: Vybrať všetko

procedure TForm1.Otvori1Click(Sender: TObject);
begin
OpenDialog1.Execute;
nieco:=opendialog1.FileName;
rewrite(sub);
write(sub,nieco);
if je then CloseFile(txt);
AssignFile(txt,OpenDialog1.FileName);reset(txt);
StatusBar1.panels.Items[1].text:='Otvorená zložka:   ' + extractfilename(OpenDialog1.filename);

pricom:
nieco:string;
je:boolean; - znaci ci bol otvoreny subor txt

potom si "dam prezivku" suboru txt uplne inemu ale toho isteho typu(akoze typ mi ostane aj vsetko len sa zmeni cesta k tomu suboru, ta cesta je ulozena v premennej...a tu premennu nacitam z toho suboru sub)
proste si chcem pametat cestu posledneho otvreneho suboru.

prosim pomozte mi uz ma suri termin odovzdania