уменя получается вот так....*unit Unit5;
Код:
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls,Forms;
BallMain in 'BallMain.pas' {Form1},
BallObj in 'BallObj.pas';
{$R *.RES}
type
TForm5 = class(TForm)
Timer1: TTimer;
Image1: TImage;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
procedure TForm5.Timer1Timer(Sender: TObject);
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.
Админ: Пользуемся тегами для оформления кода!
но чет не работает.