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:

//Title Suchen
s := idhttp2.Get('http://www.movie-worlds.net'+server2.text);
idhttp2.Free;
p3 := Pos('<title>',s);
p4 := Pos('</title>',s);

Result := Copy(s,p3+7,(p4-p3)-7);
Result := StringReplace(Result,'- Movie-Worlds.de - Das will ich sehen!!!','',[rfReplaceAll,rfIgnoreCase]);
name.text:=Result;
savedialog1.filename:=Result;
savedialog1.InitialDir:=ExtractFilePath(Paramstr(0))+'Videos\';
//Title Suchen
        if SaveDialog1.Execute then
        begin
savedialog1.FileName:=StringReplace(SaveDialog1.FileName, ' ', '-', [rfReplaceAll]);
  begin

    FNs := SaveDialog1.Filename;
    FSn := TFileStream.Create(FNs, fmCreate);
    try
idhttp3.get('http://'+edit3.Text+'.flv', FSn);

          finally
      FSn.Free;
    end;
     end;
        end;
shockwaveFlash1.Movie:='http://www.movie-worlds.net/flashplayer.swf?movie=http://'+edit3.text+'.flv';
shockwaveFlash1.Play;
    end;