Конструктор,метод вывода на экран Display, метод для преобразования в строку toString в Delphi

[Чумак Татьяна]

Здравствуйте программисты!!! Мне в университете задали написать класс, а в этом классе использовать конструктор, метод вывода на экран Display, метод для преобразования в строку toString. Я не знаю как это сделать, помогите пожалуйста....
Вот задание и код программы, который я написала без всего:
Задание:
Создать класс Payment (зарплата). В классе должны быть представлены поля: фамилия-имя-отчество, оклад, год поступления на работу, процент надбавки, подоходный налог, количество отработанных дней в месяце, количество рабочих дней в месяце, начисленная и удержанная суммы. Реализовать методы: вычисление начисленной суммы, вычисления удержанной суммы, вычисления суммы, которая выдается на руки, исчисления стажа. Стаж исчисляется как полное количество лет, прошедших от года поступления на работу, текучего года. Начисление является суммой, начисленной за отработанные дни, надбавки, то есть доли от первой суммы. Содержание представляют собой отчисления в пенсионный фонд (1% от начисленной суммы) и подоходного
налога. Подоходный налог составляет 13% от начисленной суммы-мы без отчислений в пенсионный фонд.
Код:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type
  TPayment = class(TObject)
    SurnameNameMiddleName : String;    // ФИО
    Salary                : Real;      // Оклад
    YearOfEmployment      : Integer;   // Год поступления на работу
    PercentagePremium     : Real;      // Процент надбавки
    IncomeTax             : Real;      // Подоходный налог
    NumberOfDaysInMonthR  : Word;      // Количество отработанных дней в месяце
    NumberOfDaysInMonthN  : Word;      // Количество рабочих дней в месяце
    AssessedAmount        : Real;      // Начисленная и
    WithheldAmount        : Real;      // удержанная суммы
    function FindAssessedAmount : Real;  // Вычисление начисленной суммы
    function FindWithheldAmount : Real;  // Вычисление удержанной суммы
    function FindGettedAmount   : Real;  // Вычисление выдаваемой на руки суммы
    function FindExperience     : Real;  // Вычисление стажа
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function TPayment.FindAssessedAmount : Real;
begin
Result := ((Salary / NumberOfDaysInMonthN) * NumberOfDaysInMonthR) + (((Salary / NumberOfDaysInMonthN) * NumberOfDaysInMonthR) / 100) * PercentagePremium;
AssessedAmount := Result;
end;
 
function TPayment.FindWithheldAmount : Real;
begin
Result := (FindAssessedAmount / 100) + (FindAssessedAmount / 100) * 13;
WithheldAmount := Result;
IncomeTax := (FindAssessedAmount / 100) * 13;
end;
 
function TPayment.FindGettedAmount : Real;
begin
Result := FindAssessedAmount - FindWithheldAmount;
end;
 
function TPayment.FindExperience : Real;
var
Time : TSystemTime;
begin
GetLocalTime(Time);
Result := Time.wYear - YearOfEmployment;
end;
 
end.

[Чумак Татьяна]

эээх....спасибо за помощь(

[GreenWizard]

в асю мою напиши после 20 по москве, попробую помочь
там просто много непонятного, бухгалтерия же..

[Чумак Татьяна]

блинннн, у меня нету аськи, что мне делать

[GreenWizard]

выслал вконтакта айди в ЛС)

[GreenWizard]

Татьяна, вы получили мой id вконтакте? просто тут не удобно обсуждать нюансы
хотя помочь лишь утром смогу, сейчас уже совсем сил нет

[Чумак Татьяна]

да я вам отправила уже запрос)))