J'ai trouve
Var
F:file of TRatingPoint;
ActualRating:TRatingPoint;
begin
actualrating.time:=now;
actualrating.rating:=OwnInfo.rating;
assignfile(F,Applicationpath+Owninfo.Name+'.rat');
if fileexists(Applicationpath+Owninfo.Name+'.rat') then reset(f)
else rewrite(f);
seek(f,filesize(f));
write(f,actualrating);
closefile(f);
end;
---------------
Mes photos : http://500px.com/endemyon