У меня не работает!!

[Boris96_2007]

Вот зделал в первые программу с кнопкой, типо на неё можно нажать!!!
Решил зделать что бы после нажатие на кнопку выскакивала фраза "Ура заработало", написал так я :

 procedure TForm1.Button1Click(Sender: TObject);
begin
Buton1.Caption:='Ура заработало!';
end;

А не работает! Такая шняга появляется типо красным цветом написано

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption:='Ура заработало!';
end;

Вот так и не работает!!! В чём проблема???

[Serge_Bliznykov]

буковочку пропустили:
Button1.Caption :=

[Boris96_2007]

Исправил. Ну короче я как то случайно зделал всё правельно но теперь не могу повторить!!! (Delphi 7 от Delphi 2007 отличается?)

ВСЁ исправил!!!! (Ошибку не нашёл, но исправил!!!)

[Boris96_2007]

Проблема номер 2

unit Unit1;

interface

uses
  SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, 
  QDialogs, QStdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.xfm}

procedure TForm1.Button1Click(Sender: TObject);
var
gradus, minuta:integer;
radian: real;
begin
  gradus:=StrToInt (Edit1.Text) ;
  minuta:=StrToInt (Edit2.Text) ;
  radian:=gradus*pi/180+minuta*pi/ (180*60) ;
  Label4.Caption:='Величина угла в радианной мере
  " + FloatToStr (radian) ;
end;

end.

Не работает!!!

Всё понял " + FloatToStr (radian) Не надо ставить?
__________
Я не нуб мне 12 лет!!!!

[program123]

Исправил

Label4.Caption:='Величина угла в радианной мере'+ FloatToStr (radian) ;

[Пепел Феникса]

1)какие ошибки выдает нужно говорить!!!!!!!
2)оформляй код тэгом
3)разве не так должно быть?

Label4.Caption:='Величина угла в радианной мере'+FloatToStr(radian);