Как отменить перезапись файла

[xRamzeSx]

Всем доброго времени суток.

Имеется код, который делает скрин экрана

procedure TForm.Button1Click(Sender: TObject);
var
bmp: TBitmap;
DC: HDC;
begin
if Label1.Caption='100%' then
begin
bmp:=TBitmap.Create;

bmp.Width:=1024;
bmp.Height:=768;

DC:=GetDC(0);

bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
DC, 0, 0, SRCCOPY);

bmp.SaveToFile('Screen.bmp');

ReleaseDC(0, DC);

bmp.Free;
end;
end;

Всё работает хорошо, только одна загвостка - если в корне проги уже есть файл с именем ''Screen.bmp'', то он перезаписывается, не сохраняя старый.

Как сделать так, чтобы каждый последующий файл записывался с новым именем, - с датой '10.05.2012, 20-21.bmp', к примеру, в момент, когда этот файл был создан.

[Shouldercannon]

bmp.SaveToFile(FormatDateTime('dd/mm/yy_hh/nn/ss', Now) + '.bmp');

[xRamzeSx]

Огромное спасибо!)