[Ultras]

очень давно делал, за правильность не отвечаю, вытащил из своих архивов, проверяйте:

Код:

function GetString(text: string; tstrs: TStringList): string;
var
  tmp_text: string;
  a,b,p: integer;
begin
  tmp_text := tstrs.Text;

  p := Pos(spare,tmp_text);

  while p > 0 do
  begin
    p := Pos(spare,tmp_text);
    a := 1;
    b := 1;
    while not (a = 0) do
    begin
      Inc(a);
      Inc(b);
      if a = 1 then exit;
      if tmp_text[p-1+a] = #13 then a := 0;
    end;
    Result := Result + Copy(tmp_text,p,b+1);
  end;
end;