Проверьте на правильность!!

[Dawystrik]

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender:TObject);
    procedure Button2Click(Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
   TTransp_sred = class
     private
       fName:string;
     protected
       procedure SetP(const new_name: string);
     public
       constructor Create(Name:string);
       Destructor Destroy; override;
       function Get:string;
     published
       property name:string read Get write SetP;
   end;
   TParohod = class(TTransp_sred)
     private
       fGruzopod1:string;
       fDvigatel1:string;
     protected
       procedure SetP(const new_name: string);
       function Get:string;virtual;
     public
       constructor Create(name:string; Gruzopod1:string; Dvigatel1:string);
       Destructor Destroy; override;
     published
       property Gruzopod1:string read Get write SetP;
   end;
   TSamolet = class(TTransp_sred)
     private
       fGruzopod2:string;
       fDvigatel2:string;
     protected
       procedure SetP(const new_name: string);
       function Get:string;virtual;
     public
       constructor Create(name:string; Gruzopod2:string; Dvigatel2:string);
       Destructor Destroy; override;
     published
       property  Gruzopod2:string  read Get write SetP;
   end;
const
   SZL = 20;
var
  Form1: TForm1;
  List:array[1..SZL] of TTransp_sred;
  n:integer = 0;
 
implementation
 
{$R *.dfm}
 
constructor TTransp_sred.Create(Name:string);
   begin
        fName:=name;
   end;
Destructor TTransp_sred.Destroy;
begin
end;
constructor TParohod.Create(Name:string; Gruzopod1:string; Dvigatel1:string);
   begin
        inherited create(name);
        fGruzopod1:=Gruzopod1;
        fDvigatel1:=Dvigatel1;
   end;
Destructor TParohod.Destroy;
begin
end;
constructor TSamolet.Create(Name:string;Gruzopod2:string;Dvigatel2:string);
   begin
        inherited create(name);
        fGruzopod2:=Gruzopod2;
        fDvigatel2:=Dvigatel2;
   end;
Destructor TSamolet.Destroy;
begin
end;
function TTransp_sred.Get:string;
   begin
        result:=fname;
   end;
procedure TTransp_sred.SetP;
begin
  fname:=new_name;
end;
function TParohod.Get:string;
   begin
        result:='Пароход' +' '+ fname + #13+'Грузоподъемность:' + fGruzopod1+ #13+
                'Двигатель:' + fDvigatel1;
   end;
procedure TParohod.SetP;
begin
  fname:=new_name;
end;
function TSamolet.Get:string;
   begin
        result:='Самолет'+' '+fname + #13+'Грузоподъемность:' + fGruzopod2+#13+
                'Двигатель:' + fDvigatel2;
   end;
procedure TSamolet.SetP;
begin
  fname:=new_name;
end;
procedure TForm1.Button1Click(Sender:TObject);
   begin
       if n < SZL then
          begin
              n:=n+1;
              if RadioButton1.Checked
                 then
                     List[n]:=TSamolet.Create(Edit1.Text,Edit2.Text,Edit3.Text)
                 else
                     List[n]:=TParohod.Create(Edit1.Text,Edit2.Text,Edit3.Text);
              Edit1.Text:='';
              Edit2.Text:='';
              Edit3.Text:='';
              Edit1.SetFocus;
          end
       else ShowMessage('Список заполнен!');
end;
procedure TForm1.Button2Click(Sender:TObject);
var
   i:integer;
   st:string;
begin
   for i:=1 to SZL do
      if list[i] <> NIL then
                     st:=st + list[i].Get + #13;
   ShowMessage('Список'+#13+st);
end;
end.

вот программка
подскажите,пожалуйста,мои ошибки!!!Что здесь не так?

[Dj_smart]

Сначала неплохо бы сказать, что неработает, и для чего эта программа вообще..

[mihali4]

Нарушение правил раздела (п.1 и 2)
Определитесь, что у вас не работает и продумайте свой вопрос.