Добавить тип TTime:TDateTime

[Nikitin]

вот основный проуедуры, в которые надо добавить тип TTime:TDateTime, а я не умею работать с этим типом.... так задача правильная - только нужно добавить по аналогии
ПОМОЖЕТЕ?

.......
procedure TRecord.Input;
writeln('введите продолжительность'); readln('........')
writeln('Введите имя исполнителя'); readln(FIspolnitel);
writeln('Введите название песни'); readln(FChanson);
end;

procedure TRecord.Print;
begin
writeln('Исполнитель: ', FIspolnitel);
writeln('Песня: ', FChanson);
writeln('продолжительность:', ....)
end;

function TRecord.LoadFromTFile(var f : Textfile): boolean;
var str : string;

begin
Result:=GetStrValue(f, str);
if Result then FIspolnitel := str;

Result := GetStrValue(f, str);
if Result then FChanson := str;

Result := GetStrValue(f, str);
//продолжительность

end;

procedure TRecord.SaveToTFile(var f : TextFile);
begin
writeln(f, 'Исполнитель: ', FIspolnitel);
writeln(f, 'Песня : ', Fchanson);
writeln(f,'прожолжительность:', !!!!!!!!)
end;

procedure TRecord.SetIspolnitel (AIspolnitel : string);
begin
if Ispolnitel <> ''
then FIspolnitel := Ispolnitel;
end;

function TRecord.GetIspolnitel : string;
begin
Result := FIspolnitel
end;

procedure TRecord.SetChanson(AChanson : string);
begin
if Chanson > ''
then FChanson := Chanson;
end;

function TRecord.Getchanson : string;
begin
Result := FChanson;
end;

аналогичные процедуру/функцию про продолжительность

[alexBlack]

Вводить, выводить, хранить как строку в формате HH:MM:SS

При необходимости преобразовать к TDateTime и обратно

var S:String;
    D:TDateTime;
begin
   S := '0:02:15';
   D := StrToTime(S);
   S := TimeToStr(D);

Не забудьте uses SysUtils;

[Stilet]

Так в чем проблема? Сделай свойство такого типа и используй его...