[douglas]

pues para conseguir la fecha utilizo esta funcion

Código Delphi [-]
 
function GetLocalD: String;
 var
    stSystemTime : TSystemTime;
 begin
    Windows.GetLocalTime(stSystemTime);
    Result := DateToStr( SystemTimeToDateTime( stSystemTime ) );
 end;

y luego el resultado lo coloco en un edit

Código Delphi [-]
procedure TForm3.FormCreate(Sender: TObject);
begin
edit1.Text:=getlocald;
end;

y luego del edit hago todo lo que ya vimos anteriormente, la verdad no se que hacer, perdon por tantas molestias