Код программы

unit Unit1;
 
interface
 
uses
  ClassAbiturient, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg;
 
type
  TFormAbit = class(TForm)
    EditAbit: TEdit;
    EditDisc: TEdit;
    EditExam: TEdit;
    EditSpec: TEdit;
    EditExamList: TEdit;
    EditDoc: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    MemoMore: TMemo;
    ButtonRecToMemory: TButton;
    ButtonReadFromMemory: TButton;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ButtonRecToMemoryClick(Sender: TObject);
    procedure ButtonReadFromMemoryClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  FormAbit: TFormAbit;
  Abit: TAbit;
implementation
 
{$R *.dfm}
 
procedure TFormAbit.FormCreate(Sender: TObject);
begin
Abit := TAbit.Create;
end;
 
procedure TFormAbit.FormDestroy(Sender: TObject);
begin
Abit.Free;
end;
 
procedure TFormAbit.ButtonRecToMemoryClick(Sender: TObject);
begin
with Abit do begin
  PAbit:= EditAbit.Text;
  if EditDisc.Text <> ''
  then PDisc:=EditDisc.Text;
       PExam:=EditExam.Text;
       PSpec:=EditSpec.Text;
       PExamList:=EditExamList.Text;
       PDoc:=EditDoc.Text;
       PMore:=MemoMore.Text;
end;
end;
 
procedure TFormAbit.ButtonReadFromMemoryClick(Sender: TObject);
begin
with Abit do begin
EditAbit.Text:= PAbit;
EditDisc.Text:= PDisc;
EditExam.Text:= PExam;
EditSpec.Text:= PSpec;
EditExamList.Text:=PExamList;
EditDoc.Text:= PDoc;
MemoMore.Text:= PMore;
end;
end;
 
end.

unit ClassAbiturient;
 
interface
  uses SysUtils, Dialogs, Classes;
 
type
TAbit = class
 
  private
  FAbit:string;     //Абитуриент
  FDisc:string;     //Дисциплина
  FExam:string;           //Экзамен
  FSpec:string;     //Специальность
  FExamList:string;       //Экзаменационный лист
  FDoc:string;       //Документ
  FMore:string;           //Дополнительная информация
    { Private declarations }
 
  public
  property PAbit:string read FAbit write FAbit;
  property PDisc:string read FDisc write FDisc;
  property PExam:string read FExam write FExam;
  property PSpec:string read FSpec write FSpec;
  property PExamList:string read FExamList write FExamList;
  property PDoc:string read FDoc write FDoc;
  property PMore:string read FMore write FMore;
    { Public declarations }
  end;
 
implementation
 
 
end.