[tonick2001]

Спасибо, сделал вот так:

Код:

Function Get_Lines (strng:string):string;
  var i,j:integer;
      str:string;
      counts:integer;
      StartCh:integer;
      List:TStringList;
  begin
  List := TStringList.Create;
  List.Text:=strng;
   For i:=0 to (List.Count-1) do
    Begin
     str:=Trim(List[i]);
     if Pos('Name',str)=1 then
      begin
       For j:=1 to Length(str) do
        begin
         counts:=j;
         if str[j]='=' then
          begin
           Delete(str,1,counts);
           str:=Trim(str);
           break;
          end;
        end;
     For j:=1 to length(str) do
      begin
       startCH:=j;
       if (str[j]='"') then
        begin
         Delete(str,StartCh,1);
         str:=Trim(str);
        end;
      end;
     For j:=1 to length(str) do
      begin
       startCH:=j;
       if (str[j]=';') then
        begin
         Delete(str,StartCh,1);
         str:=Trim(str);
         Break;
        end;
      end;
      Result:=str;
      Break;
    end;
  end;
  end;

Admin: Не забываем про теги!