{
Get string parameter by aName from aText list of "Name=Value" items.
}
function GetStringVar(aText:Integer; aName:String; var aValue:String):Boolean;
var i,p:Integer; Name,Value:String;
begin
 aValue:='';
 GetStringVar:=False;
 if Length(aName)>0 then
 for i:=0 to text_NumLn(aText)-1 do begin
  Value:='';
  Name:=text_GetLn(aText,i);
  p:=Pos('=',Name);
  if p>0 then begin
   Value:=Copy(Name,p+1);
   Name:=Copy(Name,1,p-1);
  end;
  if IsSameText(Name,aName) then begin
   GetStringVar:=True;
   aValue:=Value;
  end;
 end;
 Name:='';
 Value:='';
end;
