Обмен файлами через idhttp и idhttpserver

if (ARequestInfo.Document <> '/')  then //вместо (ARequestInfo.Document <> '/') можно поставить условие, при котором будет возвращать файл
  Begin
    AResponseInfo.ContentStream := TFileStream.Create(extractfilepath(paramstr(0))+ ARequestInfo.Document,fmOpenRead);
    exit;
  end;

var
  m: TMemoryStream;
begin
  m:= TMemoryStream.Create;
  IdHttp1.Get ('http://127.0.0.1:8011/', m);
  m.SaveToFile('1.jpg');
  m.Free;
end;

    AResponseInfo.ContentStream := TFileStream.Create('d:\1123.jpg', fmOpenRead or fmShareCompat);
    exit;
   //после exit ничего не делает, а мне нужно. КАК?

if (ARequestInfo.Document = '/MyFile')  then //вроде так. А вообще можно для этого использовать дебагер

exit;

if (ARequestInfo.Document = '/MyFile')  then

function decodeToBase64(FilePachName:string):string;
var
  Fs : TFileStream;
  S : AnsiString;
  //FileName : String;
begin
  //FileName := ExtractFilePath(ParamStr(0)) + 'd:\123.jpg';
  //FileName := 'd:\123.jpg';
  {
  if not FileExists(FileName) then
  begin
    MessageBox(Handle, 'Файл с заданным именем не найден. Действие отменено.',
      'Файл не найден', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end; }
  Fs := TFileStream.Create(FilePachName, fmOpenRead + fmShareDenyWrite);
  try
    SetLength(S, Fs.Size);
    Fs.Read(S[1], Fs.Size);
  finally
    FreeAndNil(Fs);
  end;
 
  result := EncodeString(S);
end;
 
procedure encodeSaveFromBase64(codingFileText, FilePachName:string);
var
  Fs : TFileStream;
  S : AnsiString;
  //FileName : String;
begin
  //FileName := ExtractFilePath(ParamStr(0)) + 'image_out.jpg';
  //FileName := FilePachName;
  Fs := TFileStream.Create(FilePachName, fmCreate);
  S := DecodeString( Trim(codingFileText) );
  try
    Fs.Write(S[1], Length(S));
  finally
    FreeAndNil(Fs);
  end;
end;

var
  post:tstringlist;
begin
  post:=TStringList.Create;
  post.Text:=decodeToBase64('d:\device.xml');
  idhttp1.Post('http://127.0.0.1:8011/download',post);
  //idhttp1.Post('http://127.0.0.1:8011/download',decodeToBase64('d:\device.xml'));
  post.Free;
end;

  if (ARequestInfo.Document = '/download')  then
  begin
    encodeSaveFromBase64(ARequestInfo.Params.Text, 'd:\newFile.xml');
 
  end;

var
  m: TMemoryStream;
begin
  x:=0;
  timer1.Enabled:=true;
  m:= TMemoryStream.Create;
  IdHttp1.Get ('http://127.0.0.1:8011/MyFile', m);
  //IdHttp1.Get ('https://interfax.com.ua/media/thumbs/images/2018/11/6hwNtQOxSkLk.jpg', m);
  m.SaveToFile('1.jpg');
  m.Free;
  timer1.Enabled:=false;
  showmessage(inttostr(x));
end;

  if (ARequestInfo.Document = '/MyFile')  then
  begin
    AResponseInfo.ContentType:='image/jpeg';
    AResponseInfo.ContentStream := TFileStream.Create('d:\1123.jpg', fmOpenRead or fmShareCompat);
    //AResponseInfo.ContentStream := TFileStream.Create('d:\123.jpg'(paramstr(0))+ ARequestInfo.Document,fmOpenRead);
    exit; // если в пределах одного приложения и сервер и клиент то виснет намертво БЕЗ exit;
 
    memo1.Lines.Add('Запрос');
  end;

uses
  EncdDecd;