TSW WebCoder Script!

Ja jeg er så ved at kode mit første TSW WebCoder Script...

Jeg for denne fejl meddelse!
Successfully compiled
[Runtime Error] : Access violation at address 401059D9 in module 'vcl60.bpl'. Read of address 0000004C in 7 at 219

{
[Scriptsettings]
Scriptname=MySQL Query While
ExecuteOnStartup=0
ExecuteOnlyOnce=0
}
program MySQL_While;
var
	W : TWinControl;
	MySQL_Query: TEdit;
    L: TLabel;
    B: TButton;

procedure ITID(); // ITID = InsertTextIDokument
begin
	InsertText('aaben_mysql();'+#13#10);
	InsertText('$sql = mysql_query(' + #39 + MySQL_Query.Text + #39 +');'+#13#10);
	InsertText('while($data = mysql_fetch_array($sql);' + #13#10);
	InsertText('{' + #13#10);
	InsertText('}' + #13#10);
	InsertText('luk_mysql();' + #13#10);
end;

procedure BClick(Sender: TObject);
begin
Output('Laver MySQl og While');
ITID(); // ITID = InsertTextIDokument
w.hide;
end;

procedure Window();
begin
	W := CreateFloatingWindow('', 'Hurtig Mysql while løkke!', 155, 200, true);
	L.Parent := W;
	L.Width := 155;
	L.Top := 5;
	L.Caption := 'MySQL Query';
	
	MySQL_Query := TEdit.Create(W);
	MySQL_Query.Parent := W;
	MySQL_Query.Width := 155;
	MySQL_Query.Top := 20;
	MySQL_Query.Text := 'SELECT * FROM tabel';
	
	B := TButton.Create(W);
	B.Parent := W;
	B.Width := 50;
	B.Top := 40;
	B.Caption := 'insert';
	B.OnClick := @BClick;
end;


begin
Window();
end.

Nogle der fatter hvad det "Access violation at address 401059D9 in module 'vcl60.bpl'. Read of address 0000004C in 7 at 219" betyder?