[rad412]

Код:

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls;


 type
  TAbClass = class(tform)

    Edit1: TEdit;
    Label1: TLabel;

  private
    { Private declarations }
  public
   procedure MyMetod(s:string);virtual; abstract;
    { Public declarations }
  end;

 type
  TAb1Class = class(TAbClass)
   Button1: TButton;
  procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
   procedure MyMetod(s:string);virtual;
    { Public declarations }
  end;


var
  Ab1Class: TAb1Class;

implementation
{ TAb1Class }
procedure TAb1Class.MyMetod(S:string) ;
begin
Ab1Class.caption:=s;
end;

procedure TAb1Class.Button1Click(Sender: TObject);
begin
 MyMetod ('Заработало))))))))');
end;


initialization
  {$I Unit1.lrs}

end.    

Admin: Пользуемся тегами для оформления кода!

3 так будет или я чет не то сделал?