[Eternal_Stranger]

Спасибо за помощь, теперь я знаю как искать в гугле! )))

Вот, для интересующихся набросал быдлокод пример. Это только для ознакомления с механизмом. Здесь конечно стоит работать в отдельном потоке и читать данные не в строку->мемстрим.

Код:

procedure TForm1.Button1Click(Sender: TObject); //Кнопка подключения.
begin
ClientSocket1.Host:=Edit1.Text; //Записываем имя хоста (адресс камеры)
ClientSocket1.Open; //Коннектимся
mem:=tmemorystream.Create; //создаём поток
jpeg:=tjpegimage.create; //создаём кадр
f:=false; // Дополнительный флаг
end;

procedure TForm1.Button2Click(Sender: TObject); //Кнопка для отправки запроса на камеру.
begin
ClientSocket1.Socket.SendText('GET /videostream.cgi HTTP/1.1'+#13+#10+
'Authorization: Basic ' + encodestring('admin:admin')+#13+#10+#13+#10);
{/videostream.cgi - запрос потока для камеры (для своей камеры поищите в инете)
#13+#10 - перевод каретки и новая строка
Authorization: Basic ' + encodestring('admin:admin') - авторизация здесь кодируется base64 пользователь:пароль
в конце запроса пустая строка
}
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket); //событие приёма данных
  var s:string;
begin
Application.ProcessMessages; //Обработка сообщений программы (для исключения зависания)
s:=socket.ReceiveText; //принятая порция данных
start:=pos('яШяа',s); //Поиск начала кадра JPEG в строке (FFD8)
if start>0 then
begin
  if mem.Size>0 then 
  Begin 
  mem.Position := 0; 
  jpeg.LoadFromStream(mem); 
  mem.Clear;
    Image.Canvas.Lock;
    try
      Image.Picture.Bitmap.assign(JPEG); //Запихиваем кадр на image для отображения
    finally
      Image.Canvas.Unlock;
    end;
  end;
  delete(s,1,start-1); //режем разделители
  mem.Write(s[1],length(s)); //пишем кусок данных в поток 
  f:=true;
end else
if f then
mem.Write(s[1],length(s));
end;