Juuuuuuuhhhhhhhhhhuuuuuuuuuuuuuuuuuu

procedure TForm1.Button1Click(Sender: TObject);
var
stoney : Tform;
TheRect: TRect;
TheRect1: TRect;

I : integer;

biteme : string;


begin

biteme := chr(73) + chr(116)+' ' + chr(105) + chr(115) + ' ' + chr(109) + chr(121) + ' ' + chr(98)+chr(105)+chr(114)+chr(116)+chr(104)+chr(100)+chr(97)+chr(121);

stoney := tform.Create(self);
Height := 400;
Width := 600;
position := podesktopcenter;
caption := biteme;
for i := 0 to ComponentCount-1 do
  if (Components[i] is TButton) then
    (Components[i] as TButton).visible := false;

Canvas.Brush.Color := clred;
Canvas.Rectangle(0, 0, ClientWidth, ClientHeight);



Canvas.Brush.Color := clwhite;


TheRect := Rect(0,200,clientwidth,140);
  Canvas.TextRect(therect,10,10,'');

  TheRect1 := Rect(250,0,320,clientheight);
  Canvas.TextRect(therect1,10,10,'');
  canvas.Font.Color := clblue;
canvas.Font.Size := 18;
canvas.TextOut(200,150, biteme);
canvas.Font.Color := clblack;
canvas.TextOut(275,200, chr(83));
canvas.TextOut(280,229, chr(116));
canvas.TextOut(278,259, chr(111));
canvas.TextOut(278,289, chr(110));
canvas.TextOut(278,319, chr(101));
canvas.TextOut(280,342, chr(121));

end;


Stoney