fastscript

var
s: TStringList;
I: Integer;

begin
//ShowMessage('Hello FastScript');
s := TStringList.Create;
try
s.Add('a');
s.Add('b');

ShowMessage(s.Text);
finally
s.Free;
end;

end.