1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

var  F: TextFile  ;     //SaveD = Save-Dialog
           if SaveD. Execute then begin
          SelFile:=ExtractFileName(SaveD.FileName); // Name der Datei
           Laenge:=Length(SelFile);
           Ext:=Copy(SelFile, Laenge-3, 4); //  Ext = Dateinamenerweiterung 
           
              if (Ext='.txt') or (Ext='.log') or (Ext='.TXT') or (Ext='.LOG') then 
              begin
                   AssignFile(F, SaveD.FileName);
                   Rewrite(F);
                   CloseFile(F);
              end
              else begin
                     if SaveD.Filter='TXT (*.txt)' then  //hier hapert's
                        Ext:='.txt'
                     else Ext:='.log';      
                     AssignFile(F, SaveD.FileName + Ext);
                     Rewrite(F);
                     CloseFile(F);
                   end;
               
           end;