Generar un enlace de TinyURL desde Delphi Prism

namespace ConsoleApplication;
 
interface
 
uses
  System.Net,
  System.IO;
 
type
  ConsoleApp = class
  public
    class function GetTinyUrl(sURL: String): String;
    class method Main(args: array of string);
  end;
 
implementation
 
class function ConsoleApp.GetTinyUrl(sURL: String): String;
const
  TinyAPI = 'http://tinyurl.com/api-create.php?url=';
var
  myWebRequest: WebRequest;
  myWebResponse: WebResponse;
  myStream: StreamReader;
  myTinyURL: String;
begin
  myWebRequest := WebRequest.Create(TinyAPI+sURL);
  myWebRequest.Method := 'GET';
  myWebResponse := myWebRequest.GetResponse();
  myStream := new StreamReader(myWebResponse.GetResponseStream);
  myTinyURL := String.Empty;
  myTinyURL := myStream.ReadToEnd();
  myWebResponse.Close();
  Result := myTinyURL;
end;
 
class method ConsoleApp.Main(args: array of string);
begin
    Console.WriteLine('Generar TinyURL...');
    Console.WriteLine(GetTinyUrl('http://daw-labs.com'));
    Console.ReadLine();
end;
 
end.