1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

function StrX(Trenner:Char; s:string; x:integer):string; //Sucht X-ten String in s
var a   :array of string; 
    i,j :integer; 
    t   :string;
begin t:=Trim(s);
        for i:=1 to length(t) do // innerhalb von " " = ‡
         if t[i]='"' then
          begin t[i]:=Trenner;
           for j:=i+1 to length(t) do
             begin if t[j]=Trenner then t[j]:='‡';
                   if t[j]='"' then begin t[j]:=Trenner; break; end;
             end;
          end;
      setLength(a,1);
    while length(a) <= x do
     begin
      for i:=1 to length(t) do
        if t[i]<>Trenner then 
          a[length(a)-1]:=a[length(a)-1]+t[i] else
            if t[i-1]<>trenner then setLength(a,length(a)+1);
      if i>length(t) then break;
     end;
    if x>length(a) then result:='' else
      result:=StringReplace( a[x-1], '‡', Trenner, [rfReplaceAll]);

(* StrX(' ',s,6) ergibt 'Tag 7'
   StrX(' ',s,2) ergibt '34'

   s = 12.23 34 21.2 22.34 23434,45 "Tag 7" 234.9878 H
*)
end;					

1:
2:
3:
4:
5:
6:

...
var i:integer;
    schtringliste:TStringList;
 for i:=1 to MaxWorteInZeile do if uppercase(StrX(' ',Zeile,i))='HTTP://' then
   schtringliste.add(StrX(' ',Zeile,i));
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:

procedure TMainForm.BitBtn6Click(Sender: TObject);

var csAdressen   : string;
    csTeilString : string;
    niPos        : integer;
    niLang       : integer;
    asAdressen   : array of string;

    // = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

    procedure ADel( niPosition : integer );

    var niI      : integer;
        niLength : integer;


    begin
       niLength := length( asAdressen )-1;
       if niLength < niPosition then exit;

       if niPosition = niLength then begin
          // Letztes Element abschneiden:
          SetLength( asAdressen, niLength );
          exit;
       end;

       for niI := niPosition to niLength-1 do begin
          asAdressen[ niI ] := asAdressen[ niI+1 ];
          Application.ProcessMessages;
       end;
       SetLength( asAdressen, niLength );
    end;

    // = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

begin
   csAdressen := 'xyz http://google.de qvc ard http://web.de php';
   csAdressen := trim( csAdressen ) + ' ';

   while true do begin
      Application.ProcessMessages;
      niPos := pos( ' ', csAdressen );
      if niPos = 0 then break;

      if niPos = length( csAdressen ) then begin
         // Endstück erreicht:
         niLang := length( asAdressen );
         SetLength( asAdressen, niLang+1 );
         asAdressen[ niLang ] := trim( csAdressen );
         break;
      end;

      csTeilString := copy( csAdressen, 1, niPos-1 );
      niLang := length( asAdressen );
      SetLength( asAdressen, niLang+1 );
      asAdressen[ niLang ] := csTeilString;

      csAdressen := copy( csAdressen, niPos+1, length( csAdressen ) - niPos );
   end;

   // Bereinigung von asAdressen:
   niLang := length( asAdressen )-1;

   for niPos := niLang downto 0 do begin
      Application.ProcessMessages;
      if pos( 'HTTP://', AnsiUpperCase( asAdressen[ niPos ] ) ) = 0 then
         adel( niPos );
   end;
end;					

1:
2:

for i := 0 to length(asAdressen)-1 do
 Memo1.Lines.Add(asAdressen[i]);					

1:
2:
3:
4:
5:

with TStringList.Create do
begin
CommaText:=StringReplace(Edit1.Text, ' ', ',' , [rfReplaceAll]);;
Memo1.Text:=Text;
end;