Izvlacenje promenljive vrednosti iz URL-a

Code:

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
   Function IzvuciPodstring(URL,PocZnak,ZavrsZnak:String):String;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
 Caption:= IzvuciPodstring('http://mojsajt.com/view.php?track=59H-7WZ-1Y5L&Refresh=60','track=','&');
end;

function TForm1.IzvuciPodstring(URL,PocZnak,ZavrsZnak:String):String;
Var Pocetak,Kraj:Integer;
    Podstring:String;
begin
  Podstring:=  copy(URL,1,7);
  if Podstring = 'http://' then
  begin
     Result:='Greska: Uneti URL nema odgovarajucu strukturu';
     Pocetak:= pos(PocZnak,URL,1);
     if Pocetak = 0 then Exit;
     Kraj:= pos(ZavrsZnak,URL,Pocetak+1);
     if Kraj = 0 then Exit;
     Result:=copy(URL,Pocetak+Length(PocZnak),Kraj-Pocetak-Length(PocZnak));
  end else Result:='Greska: Uneti URL nije Adresa.';


end;