Или можно ещё короче, если планируется работа с памятью по указателю:
var
decodedPtr: Pointer;
procedure MyProcedure(const MaxDataBytes: Integer);
begin
GetMem(decodedPtr, MaxDataBytes);
end;
И потом не забыть написать где-нибудь вот это, когда выделенная память больше не нужна:
...
FreeMem(decodedPtr);
...