procedure executescript;
begin
  showmessage('Hello!');
end;
begin
end.