Time for mine...I'm not good at keeping code clear 
SCAR Code:
program HelloWorld;
{.include SRL/SRL.scar}
var
SantyForm : TForm;
Label1 : TLabel;
Button1, Start : TButton;
TypeMessage : TEdit;
b : Integer;
Background : TImage;
procedure ReportBug(Senders : TObject);
begin
DisguiseScar('Reporting Bug!')
WriteLn(' ');
OpenWebPage('http://www.srl-forums.com/forum/private.php?do=newpm&u=3288');
end;
procedure StartScript(Senders : TObject);
begin
if (not(TypeMessage.text = 'Hello World')) then
begin
SantyForm.Hide;
DisguiseScar('Wrong Message!');
Wait(5000);
DisguiseScar('Reverting To Correct Message');
Wait(5000);
SantyForm.Show;
TypeMessage.Text := 'Hello World!';
SantyForm.Hide;
SantyForm.Show;
Wait(5000);
SantyForm.ModalResult := MrCancel;
WriteLn('Hello World');
end;
end;
procedure HelloWorldForm;
begin
SantyForm := CreateForm;
with SantyForm do
begin
Position := poScreenCenter;
BorderStyle := bsSingle;
BorderIcons := [biMinimize,biSystemMenu];
ClientWidth := 392;
ClientHeight := 237;
Caption := 'Hello World!!';
Color := clBtnFace;
Font.Color := clWindowText;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
Font.Style := [];
PixelsPerInch := 96;
end;
Background := TImage.Create(SantyForm);
with Background do
begin
Parent := SantyForm;
SetBounds(0, 0, 696, 465);
end;
Label1 := TLabel.Create(SantyForm);
with Label1 do
begin
Parent := SantyForm;
SetBounds(87, 14, 225, 25);
Caption := 'SANTY'#39'S HELLO WORLD!';
Font.Color := clYellow;
Font.Height := -21;
Font.Name := 'Monotype Corsiva';
Font.Style := [];
ParentFont := False;
end;
Button1 := TButton.Create(SantyForm);
with Button1 do
begin
Parent := SantyForm;
SetBounds(164, 138, 75, 25);
Caption := 'Report Bugs';
TabOrder := 8;
OnClick := @ReportBug;
end;
TypeMessage := TEdit.Create(SantyForm);
with TypeMessage do
begin
Parent := SantyForm;
SetBounds(141, 86, 121, 21);
TabOrder := 9;
Text := 'TypeMessage';
Font.Color := clRed;
end;
Start := TButton.Create(SantyForm);
with Start do
begin
Parent := SantyForm;
SetBounds(164, 175, 75, 25);
Caption := 'Start';
Font.Color := clWindowText;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
Font.Style := [];
ParentFont := False;
TabOrder := 10;
OnClick := @StartScript;
end;
b := BitmapFromString(696, 1, 'z78DAD597DB4E262110845F8933C3' +
'250CF0FE8FB4F1034399C91A5DF36FA21715A374D187EAA6C798B' +
'79F2B81159C6F583C98C1FB0DF9A7A901BCC00672BE71BEC1D30A' +
'D841FE7B3B308270DE9CB961B8EF5F8244740F41A2E3CFA65B904' +
'83BD9E8C4DBC94927EA4EDE3AA9ECC4DE31EEB00166C033601864' +
'7BC0306018E46DC030F06AC030F00430131F260C138609C38461E' +
'2C38467C233F164C236619B4370FE0095A70BDE726F157F2EF173' +
'F91C258A15913D91AEA877066EC94C918C45C9A43B79EE53F2BF6' +
'A51A446AB6A416A6AA4EE4B0F55949C45E1F879DBA3FF8655C3AA' +
'61D5B8A561D5A274D0B25ABD8655EDD26B55BA0FDB1AA52B61A8F' +
'6746B59BD0C4FE9A7970B6C8543A5BC0CABDC8827D589CFE544B7' +
'E26D4132D35E303DDAA7581F58042FC12C9804A3601025788982E' +
'ADC46B4A10AE9A293266A290FCDA48772DC433F53F4738B7E8AA8' +
'284945BCD448F5D31F9AB9E47580A14479356028E6BC26170C579' +
'357E6927707DB0BDB0BFF335619AB8CE719AB8C55C62A93E1CC5D' +
'89F3891C266E495C9FF030C19FE04FF047CE479823CC11E608738' +
'43972327032E0498039C01C600E9C0CF8C0AFC6E38387D9C3EC61' +
'F6F8E0F1C1C3EC6076303B981DCC0E66C779C779B7CEC36FE1B7F' +
'05BF82DFC162B8B95C5CA6280E9FBB8DC23CC4881579140623730' +
'BC0763E462737EACFCDDCBF9283C97F057B9B71F7F16CDF6D38BF' +
'F59E2AA12EF38D7EE9C78C955961C36C9ED3C39DFF98F52972AF5' +
'1A27945DD320B52EA2817EB4B174B23593444B5534368FF6B60EA' +
'3E8B3886EC7D1F3D2F6D67912FD57E98B7EFA65F5CEEEA328FD75' +
'49DF35E9C7794AB47BD64B2F27E9F14B7ABFC94C98B2193A99215' +
'166CB2533A7CA2CEAB23D1A995D4E665A945997650616998D4D66' +
'6697592AD375496FCF5EF798CCE131BD75AAEBB4D757405F87E7D' +
'BF1F95BF3DD37EBB9633889B1496682CCFF2E998FA7467BAADFFF' +
'7107687263979D44F563453F417CCEA2A22ABB503F3BD207FDA87' +
'254335574220AD9AAF07FD931AAD462C8B6EF643F4CB23796C76E' +
'3F65B777B28BC66F6EF5F6B1D5C77FDAED5FBDE17F7DB7D7ADDE7' +
'D73AB4F92492FDF4DE67C4F7DD8EDABD4284BD5A27CAF39F98E33' +
'E7FBEEC3175FFF555FAC5F991E5D266A3A1DB4B7C726DD176471B' +
'8E575F0E735F903257356ED');
SafeCopyCanvas(GetBitmapCanvas(B),Background.Canvas,0,0,669,1,0,0,1300,465);
end;
procedure SafeHelloWorldForm;
var
V : TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('HelloWorldForm', V);
end;
procedure ShowHelloWorldFormModal;
begin
SantyForm.ShowModal;
end;
procedure SafeShowHelloWorldFormModal;
var
V : TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('ShowHelloWorldFormModal', V);
end;
procedure MainHelloWorldForm;
begin
try
SafeHelloWorldForm;
SafeShowHelloWorldFormModal;
finally
FreeForm(SantyForm);
except
WriteLn('An error seems to have occurred in: HelloWorldForm');
end;
end;
begin
ClearDebug;
GetSelf.WindowState := wsMinimized;
MainHelloWorldForm;
GetSelf.WindowState := wsNormal;
end.