[Janom]

Код:

var
  time:_SYSTEMTIME;
  strtime:pchar;
begin
 GetSystemTime(time);
 strtime:=Pchar('['+IntToStr(time.wDay)+'.'+IntToStr(time.wMonth)+'.'+
         IntToStr(time.wYear)+' - '+IntToStr(time.wHour)+':'+IntToStr(time.wMinute)+
           ':'+IntToStr(time.wSecond)+'] ');
Edit1.Text:=strtime;