void __fastcall TForm1::IdHTTPServer1CommandGet(TIdPeerThread *AThread,
      TIdHTTPRequestInfo *RequestInfo, TIdHTTPResponseInfo *ResponseInfo)
{

if (RequestInfo->Document == "/myuserbar.jpg"){

//рисуем:
Image1->Picture->LoadFromFile("background.bmp"); //Чтоб с красивым фоном
TCanvas *pCanvas = Image1->Canvas;
pCanvas->Font->Size = 15;
  pCanvas->Font->Name = "Arial";
  pCanvas->Font->Color = clWhite; // пишем белым цветом
 pCanvas->Brush->Style = bsClear; //чтоб фон не закрасить.
pCanvas->TextOutA(50,50 ,"Твой IP :" + RequestInfo->RemoteIP);
//Высылаем:
TMemoryStream * picStream = new TMemoryStream();
  Image1->Picture->Bitmap->SaveToStream(picStream);
  ResponseInfo->ContentStream = picStream;
  ResponseInfo->ContentType = IdHTTPServer1->MIMETable->GetFileMIMEType("nevermind.jpg");
}
}