Es kommt immer darauf an, was du mit "leerer Puffer" meinst. Wenn du "leer" so verstehst, das jedes Byte des Puffers 0 ist, sollte das einfach gehen:
Delphi-Quellcode:
type
TByteArray = array of Byte;
function IsBufferEmpty(Buffer: TByteArray): boolean;
var i: Integer;
begin
for i := 0 to Length(Buffer)-1 do
if Buffer[i] <> 0 then
begin
Result := false;
Exit;
end;
Result := true;
end;