классы delphi

[Terrance!]

При компиляции выдаёт ошибку! Я уж не знаю в чём дело, может кто скажет, в чём я не прав и если можно, покажите на примере кода.
Заранее очень благодарен!

unit unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;
  Tunit = class
  private
  n,h,o,a,s,sq:integer;
 picture:tbitmap;
    public

end;


var
  Form1: TForm1;
  u1:tunit;
  x:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
x:=1;
 u1.picture:=tbitmap.Create;

end;

procedure Timer1Timer(Sender: TObject);
begin
x:=x+1; if x>2 then x:=1;
u1.picture:=tbitmap.create;
 u1.picture.LoadFromFile('1/'+inttostr(u1.o)+'/'+inttostr(x)+'.bmp');


end;


end.

[evg_m]

При компиляции выдаёт ошибку! Я уж не знаю в чём дело

1. прежде всего прочитать и понять текст ошибки, потом найти строку с ошибкой.
2. Если не помог п1., то спросить в форуме используя данные п1. (текст + строка).

P.S. цените не только свое, но и чужое время.

Зная полные данные об ошибке не придется тратить время на (открыть Delphi, скопировать текст программы в среду, дописать то что вы забыли указать dfm файл запустить компиляцию, из-за отсутствия dfm может потребоваться несколько пробных компиляций, получить то что просят (текст и строка) после этого можно будет и ответить. У вас все что описано УЖЕ выполнено. есть. осталось совсем немного. сообщить и нам.

[Terrance!]

ошибка выглядит так:
project Project1.exe raised exception class EAccessViolation with message 'access violation at adress 0044C8AO in module 'project1.exe'. Write of address
0000001C'.Process Stopped. Use step or run to continue.

ошибка ссылается на строку

u1.picture:=tbitmap.Create;

Может кто сталкивался с этим?

[evg_m]

project Project1.exe raised exception class EAccessViolation with message 'access violation at

Это не ошибка компиляции. Это ошибка при выполнениии программы.

Свзязано это в данном случае с тем перед использованием объекта его забыли создать.
u1:tunit;

ш1:=Tunit.Create;//надо добавить вот такую строке
u1.picture:=tbitmap.create;  // иначе ты создаешь объект Tbitmap в несуществующем объекте u1

[Terrance!]

СпасибООО!!!