Delphi сохранение файла с 'filename'+1

[Dj_SheLL]

Пытаюсь при сохранении файла сделать,чтобы каждый новый файл имел свой номер в конце,т.е.
cover_1.jpg
cover_2.jpg
cover_3.jpg
cover_4.jpg
и т.д.
Вот что пытался сам,что не правильно,скажите пожалуйста

procedure TForm4.sButton5Click(Sender: TObject);
var
 i:integer;
 Bitmap:TBitMap;
 n:integer;
 s:string;
begin
Bitmap:=TBitmap.Create;
Bitmap.Assign(Image2.Picture.Graphic);
Bitmap.Width:=Image2.Width;
Bitmap.Height:=Image2.Height;
for n:=0 to 500 do
s:=inttostr(n);
if FileExists('C:\Program Files\FQ Panel\cover\cover_'+s+'.jpg') then
 begin
 s:=s+'1';
 Bitmap.SaveToFile('C:\Program Files\FQ Panel\cover\cover_'+s+'.jpg');
 end;
Bitmap.Free;

[ZaRDaK]

procedure TForm4.sButton5Click(Sender: TObject);
var
 i:integer;
 Bitmap:TBitMap;
 n:integer;
 s:string;
begin
Bitmap:=TBitmap.Create;
Bitmap.Assign(Image2.Picture.Graphic);
Bitmap.Width:=Image2.Width;
Bitmap.Height:=Image2.Height;
for n:=500 downto 0 do begin
s:=inttostr(n);
if FileExists('C:\Program Files\FQ Panel\cover\cover_'+s+'.jpg') then
 begin
 s:=Inttostr(n+1);
 Bitmap.SaveToFile('C:\Program Files\FQ Panel\cover\cover_'+s+'.jpg');
Bitmap.Free;
exit;
end;
 end;

[lowercase]

неправильно то чо цыкл у тебя делает 500 раз только одну операцию:

for n:=0 to 500 do
s:=inttostr(n);

и в итоге s у тебя всегда равно 500
надо взять весь код после цыкла (до строчки Bitmap.Free; ) в begin end;
то есть:

procedure TForm4.sButton5Click(Sender: TObject);
var
  i:integer;
  Bitmap:TBitMap;
  n:integer;
  s:string;
begin
  Bitmap:=TBitmap.Create;
  Bitmap.Assign(Image2.Picture.Graphic);
  Bitmap.Width:=Image2.Width;
  Bitmap.Height:=Image2.Height;
  for n:=0 to 500 do begin
    s:=inttostr(n);
    if FileExists('C:\Program Files\FQ Panel\cover\cover_'+s+'.jpg') then
     begin
       s:=s+'1';
       Bitmap.SaveToFile('C:\Program Files\FQ Panel\cover\cover_'+s+'.jpg');
     end;
  end;
  Bitmap.Free;
end;

[ZaRDaK]

lowercase

Твой код или досоздаст около 500 файлов, в зависимости от количества уже существующих, или не сделает абсолютно ничего.

[eoln]

А почему +'1' к строке? Задача получить новый файл при каждом нажатии кнопки или сразу 500 файлов за одно нажатие? Если первое, то так

for n:=0 to 500 do
  if FileExists('C:\Program Files\FQ Panel\cover\cover_'+inttostr(n)+'.jpg') then
    continue
  else  begin
    Bitmap.SaveToFile('C:\Program Files\FQ Panel\cover\cover_'+inttostr(n)+'.jpg');
    break
  end;
Bitmap.Free;

Если второе, то без красного