请把以下C++变量的定义和处理翻译为DELPHI

char* WaveData;
WaveData=0;
WaveData = new char[buffer];
if(WaveData)delete[] WaveData;
delete[] WaveData;

---

var
  WaveData: PChar;
begin
  WaveData := nil;
  GetMem(WaveData, Buffer);
  if WaveData <> nil then FreeMem(WaveData);
end;

---

或者：
var
  WaveData: array of char;
begin
  SetLenteh(WaveData, Buffer);
  //一般情况下，不需要下面的语句，Delphi会自动管理
  if Length(WaveData) <> 0 then
    SetLenteh(WaveData, 0);
end;

---

if(WaveData)delete[] WaveData;
delete[] WaveData;

这代码。