Есть вот такая запись:

  PSurface = ^TSurface;

  TSurface = record
    Left: word;
    Top: word;
    Width: word;
    Height: word;
    Depth: byte;
    Ident: word;
    Data: IDirectDrawSurface7;
  end;

В Чём разница:

вариант 1.

var
 TempSurf:TSurface;

begin
 TempSurf.Data:=nil;         //этот вариант работает, но мне он не интересен.
end;

вариант 2.

var
 TempSurf:PSurface;

begin
 GetMem(TempSurf,sizeof(TSurface));
 TempSurf^.Data:=nil         //тут выдаёт ошибку
end;