codice:
 
if (FileCreate(path+nomefile))<>-1 then
             begin
             if chk_testo.Checked=true then
               begin
                   S := TStringList.Create;
                   s.Clear;
                  testo := InputBox('Testo','Inserire testo da scrivere nel file','');
                     try
                        s.Text := testo;
                        S.SaveToFile(path+nomefile);
                     finally
                        s.Free;
                     end;
               end;
xkè mi da l'errore dicendomi k il file è già utilizzato da un altro processo?