автор if request = 'POST' then begin
//if fPostSize > 0 then begin
id:= '[{E7854A1C-D822-44FA-A7A0-6368E9A3F47E}]';
try

FileName := '...\debug\resources\pages\message.html';

headers.Clear;
ContentType := GetContentType(FileName);
headers.Add(ContentType);

OutputData.LoadFromFile(FileName);
OutputData.Seek(0,0);
Result := 200;
Exit;

так не получается