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:

procedure TForm1.Button1Click(Sender: TObject);
var
temp : string;
x,y,start,ende: integer;
begin
temp := http.Get('http://www.delphi-forum.de/');
if pos('@',temp) > 0 then
  begin
  y := pos('@',temp);
  for x:= 0 to 60 do
    begin
    if (temp[y-x] = '"') or (temp[y-x] = '=') or (temp[y-x] = ':') then
      begin
      start := y-x;
      end;
    end;
  for x:= 0 to 60 do
    begin
    if (temp[y+x] = '"') or (temp[y+x] = '>') then
      begin
      ende := y+x;
      end;
    end;
    ShowMessage(inttostr(y) + '/' + inttostr(start) + '/' +inttostr(ende));
ShowMessage(copy(temp,start,ende-start));
  end;

end;