Часы в Делфи

[Салих]

Пишу данный код в турбо делфи 2006, а он при запуске выдает "Error in module Unit2: Declaration of class TForm2 is missing or incorrect"
Что делать???
[syntax="delphi"]
unit Unit2;

interface
uses SysUtils, Classes;

function gethours: integer;
function getmins: integer;
function getsecs: integer;

implementation

function gethours: integer;
var
s: string;
h: integer;
begin
s := timetostr(time);
h := strtoint(s[1] + s[2]);
Result := h;
end;

function getmins: integer;
var
s: string;
h: integer;
begin
s := timetostr(time);
h := strtoint(s[4] + s[5]);
Result := h;
end;

function getsecs: integer;
var
s: string;
h: integer;
begin
s := timetostr(time);
h := strtoint(s[7] + s[8]);
Result := h;
end;

end.
[/syntax]
Заранее огромное спасибо

[dr.Jekill]

Выложите все файлы проекта

[Салих]

Ой... а я даже и не знаю. Я просто нашел этот код (http://window.edu.ru/window_catalog/pdf ... 0&p_page=7) и скопировал его... а что еще надо?

[dr.Jekill]

Если у Вас всего один модуль и Вы просто вставили данный код в модуль формы, то понятное дело работать ничего не будет.
Нужно как минимум описать класс Вашей формы.
Создайте новый проект и подключите к нему данный модуль.
Тогда в проекте Вы сможете пользоваться функциями, описанными в модуле.
И быстро читать теорию!

[Салих]

Спасибо большое... попытаюсь освоить этот нелегкий путь