[PhoeniX]

Время считай в какую нибудь переменную, выводи по таймеру. Вот как можно: (на форму кинуть Label и настроить шрифт по своему усмотрению)

Код:

var mytime:integer; //Вне процедуры

...
...
procedure TForm24.Timer1Timer(Sender: TObject);
const
  n=1; //Подстройте под себя
var
  mins,secs:integer;
  TimeStr:string;
begin
  ...
  ...
  MyTime:=MyTime+n;
  mins:=MyTime div 60;
  secs:=MyTime mod 60;
  TimeStr:=IntToStr(mins)+':'+IntToStr(secs);
  Label1.Caption:=TimeStr;
  ...
end;

А сохранить элементарно:

Код:

Memo1.Lines.SaveToFile('C:/mytext.txt');