Изменение имени текстового файла

[Fidarov]

Помогите плиз, нужна прога которая каждые десять минут изменять имя текстового файла reqw1.txt на reqw2.txt, reqw3.txt и так далее в течении дня, обнулять на следующий день и начинать заново

[Stilet]

Зачем если не секрет?

[whatever]

Вешаешь таймер на форму, в модуле пишешь:

var
  Form1: TForm1;
  i:integer;
  day:TDateTime;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if day<date then
    begin
      renamefile('C:\reqw'+IntToStr(i)+'.txt','C:\reqw1.txt');
      i:=1;
      day:=date;
    end
  else
    begin
      renamefile('C:\reqw'+IntToStr(i)+'.txt','C:\reqw'+IntToStr(i+1)+'.txt');
      inc(i);
    end;
end;

initialization
i:=1;
day:=date;
if not fileexists('C:\reqw1.txt') then
  begin
    showmessage('файл не найден');
    HALT;
  end;

end.

И в таймере выставляешь нужное время.

Ну и присоединяюсь к предыдущему оратору, нафига это надо?