Создать файл с текущим временем в делфи

Как при нажатии на кнопку создавать файл вида Good_hh_mm_ss?
hh_mm_ss - часов минут секунд.

 

Будь добр скинь мне тоже^^

 

Код:

var
Way,StrTime:string;
i:integer;
begin
StrTime:=TimeToStr(Time);
for i:=1 to Length(StrTime)  do
if StrTime[i]=':' then  StrTime[i]:='_';
Пример :Form8.sMemo1.Lines.SaveToFile('Rez_GOOD_'+StrTime+'.txt');