var
M: TmemoryStream;
S: AnsiString;
begin
M := TMemoryStream.Create;
IdHTTP1.Get('http://rusfaq.ru/info/Question/163505', M);
SetLength(S, M.Size);
CopyMemory(Pointer(S), M.Memory, M.Size);
Memo1.Lines.Text := S;
M.Destroy;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.