Como salvar aquivos com data e Hora definidas ???

Como salvar aquivos com data e Hora definidas..
Ex: BackuP_15/06/2003_10:30
Então seria fetio num edit
Edt+Nome do backup + data+Hora
----------------------------------------
Esta função altera a data e hora de um arquivo. Se obter sucesso retorna true, caso contrário retorna false. }
function DefineDataHoraArq(NomeArq: string; DataHora: TDateTime): boolean;
var
F: integer;
begin
Result := false;
F := FileOpen(NomeArq, fmOpenWrite or fmShareDenyNone);
try
if F > 0 then
Result := FileSetDate(F, DateTimeToFileDate(DataHora)) = 0;
finally
FileClose(F);
end;
end;
{ Exemplo de uso 1: Usa a data atual do sistema (Now) }

if DefineDataHoraArq(´c:\teste\logo.bmp´, Now) then
ShowMessage(´Data/Hora do arquivo definida com sucesso.´)
else
ShowMessage(´Não foi possível definir data/hora do arquivo.´);
Como eu faço para passar isso Pra um EditFile ????