WinAPI

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Lines.SaveToFile(DatetoStr(now)+'.txt');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  myDate : TDateTime;
  myYear, myMonth, myDay : Word;
  myHour, myMin, mySec, myMilli : Word;
begin
  myDate := now;
  DecodeDateTime(myDate, myYear, myMonth, myDay,
                 myHour, myMin, mySec, myMilli);
 Memo1.Lines.SaveToFile(IntToStr(myYear)+'_'+IntToStr(myMonth)+
 '_'+IntToStr(myDay)+'_'+IntToStr(myHour)+'_'+IntToStr(myMin)+'_'+IntToStr(mySec)+'.txt');
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 // открываем блокнот
 ShellExecute(Handle, 'open', 'notepad.exe', nil, nil, SW_RESTORE);
 sleep(500);// маленько тормознем
 h:= FindWindow('Notepad',nil);// находим дескриптор блокнота
 h1:= FindwindowEx(h, 0, 'Edit', nil);// находим дескриптор поля ввода блокнота - Edit
 if h1 <> 0 then // если найден дескриптор
  begin
   AssignFile(f, 'Text.txt'); // открываем файл с текстом
  Reset(f);
   Timer1.Interval:= StrtoInt(Edit1.Text);
  Timer1.Enabled:= True;//- врубаем таймер
  end;
 
end;