Descompone la fecha y hora, y luego construis el nombre de archivo, algo como:
Código Delphi
[-]
Var
dd, mm, yy, hh, mm, ss, cs : Word;
fName : String;
Begin
DecodeDate(now, yy, mm, dd);
DecodeTime(now, hh, mm, ss, cs);
fName := Format('%d_%d__%d_%d.bmp', [dd, mm, hh, mm]);
bmp.SaveToFile(fName);
end;
Hasta luego.