정말 도움이많이되었습니다.
감사합니다.

procedure TForm1.Timer1Timer(Sender: TObject);
var
    NewTime: TTime;
begin
    NewTime := now - OldTime;
    Panel1.Caption := FormatDateTime('HH:MM:SS', NewTime);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    OldTime := now;
    Timer1.Enabled := true;
end;

이 방법도 있네요 ^.^

이런 방법도 있습니다..

아래를 보면 아시겠지만 TTIme이 double 형이니깐 아래처럼 해서
그 시간들의 차이를 구해서 다시 변환하면 지나간 시간을 알 수 있죠..
아래 소스 입니다..

cur_time 과 old_time 은 TTime 형입니다.. 그럼
//////////////////////////////////////////////

procedure TForm1.Timer1Timer(Sender: TObject);
var
  tmpval : double;
begin
  cur_time := now;

  tmpval := double(cur_time) - double(old_time);

  caption := FormatDateTime('hh:mm:ss',tmpval);
end;

///////////////////////////////////////////////
// 버튼을 누르면 기준 시간을 초기화.. ^^
///////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
begin
old_time := now;
end;
////////////////////////////////////////////////

우선 타이머의 인터벌을 1000으로 하시구요  1000이 1초거든요...

그리고 버튼을 Enabled 를 True로 되게 하시구요...

타이머의 이벤트에는

begin
S := S + 1;
   if S >= 60 then begin
      M := M + 1;
      S := 0;
   end;
   if M >= 60 then begin
      H := H + 1;
      M := 0;
   end;

   edit1.Text  := FormatFloat( '00', H ) + ':' + FormatFloat( '00', M ) + ':' +
                  FormatFloat( '00', S );

end;

이렇게 하시면 됩니다...

이상 바보엿습니다.