[SQL-Injector]

Всем спасибо =). Уже разобрался =). Моя реализация следующая:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
t:TTime;
d:TDate;
begin
t:=time;
d:=date;
label1.Caption:=DateToStr(d)+'_'+TimeToStr(t);
end;