mettendo così nn funziona :master: :
var
f:textfile;
nome : string;

begin

randomize;
nome := IntToStr(random(3)+1);

assignfile(f, 'C:\Documents and Settings\All Users\Desktop'+ nome + '.txt');
rewrite(f);
CloseFile(f);

end;

end.

cosa c'è di sbagliato..
ciao ciao
cmq il mio accaunt msn è : LilloZ_hacker@hotmail.it..se mi aggiungi..
grazie