Problem mit nem OpenDialog ^^

[KochFolie]

Hi,
ich möchte gerne per OpenDialog eine Datei öffnen und dann den dateinamen benutzen etwas verunstalten und in eine ähnlich heissende datei wieder reinschreiben und die dann speichern
aber egal, denn das klappt
nur wenn man im OD auf abbrechen klickt, speichert der in der zuletzt gespeicherten datei anstelle vom alten dateinamen gar nichts ab...
hm... http://dlz.kochfolie.de?file=4 bitte mal ausprobieren...
ich glaub das da oben versteht eh keiner *g*, kann net erklären naja

also noch ein versuch *g*
man klickt auf öffnen, dann kommt if opendialog.execute then und so weiter, mein programm macht nu den pfad weg, und ändert beim namen mit pfad die extension... dann speichert er die neue datei mit pfad und schreibt da sozusagen den alten dateinamen ohne pfad rein...
soweit ok, wenn man das nochmal und nochmal macht wirds immer wieder klappen, nur wenn man auf abbrechen drückt, speichert er in die alte datei einen leeren dateinamen...
ich glaub das versteht man besser :/
kann mir jemand helfen?

den code stell ich auch mal hier rein....

Code:

procedure TForm1.ffnen1Click(Sender: TObject);
var dateiname,dateiname2,dateiname3,dateinamemitpfad,dateinamemitpfad3:string;
    datei:textfile;
begin
try
if open.execute then dateiname:=extractfilename(Open.Filename);
assignfile(datei, ChangeFileExt(open.filename,'.cue'));
rewrite(datei);
write(datei, 'FILE "');
write(datei, dateiname);
writeln(datei, '" BINARY');
writeln(datei, '  TRACK 01 MODE1/2352');
write(datei,   '    INDEX 01 00:00:00');
flush(datei);
closefile(datei);
if deutsch1.checked
  then label3.caption:='Datei erfolgreich gespeichert als:'
  else label3.caption:='File successfully saved as';
dateiname2:=ChangeFileExt(Open.Filename,'.cue');
label4.caption:=dateiname2;
except
error:=true;
if deutsch1.checked
  then begin label3.caption:='Fehler aufgetreten... bitte sende eine e-mail mit einer beschreibung';
             label4.Caption:='von dem was du grad gemacht hast an [email][e-mail][/email]';
       end
  else begin label3.caption:='Error accured... please send an e-mail with a little error report';
             label4.caption:='of your actions in it to [email][e-mail][/email] (I know my english ;-)';
       end;
end;
if label3.width<label4.width
  then form1.Width:=label4.width+10
  else form1.Width:=label3.width+10;
form1.height:=130;
dateiname3:=dateiname;
dateinamemitpfad3:=dateinamemitpfad;
end;

ich hab (zu?)viele variablen is aber egal das säuber ich nachher noch...erstmal solls funktionieren

falls wer mein problem noch nich kapiert hat ich möchte entweder den abbrechen button im OpenDialog deaktivieren (nicht gut) oder ich möchte verhindern dass ein leerer wert in die alte datei geschrieben wird!

danke schonmal