[supernewbie]

а че у меня не делает?

Добавлено через 1 минуту

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;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

unit IMPORT_Unit1;
interface
uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls,
  Unit1,
  PaxCompiler,
  PaxRegister;
procedure RegisterIMPORT_Unit1;
implementation
procedure RegisterIMPORT_Unit1;
var G, H: Integer;
begin
  H := RegisterNamespace(0, 'Unit1');
  // Begin of class TForm1
  G := RegisterClassType(H, TForm1);
  RegisterHeader(G,
       'constructor Create(AOwner: TComponent); virtual;',
       @TForm1.Create);
  // End of class TForm1
  RegisterVariable(H, 'Form1: TForm1;',@Form1);
end;
initialization
  RegisterIMPORT_Unit1;
end.

баттон где?

Добавлено через 3 часа 35 минут
ну блин, че за фигня, подскажите или я уже пошёл в проперти переделывать эту хрень)