RE:urge.., esto es para expertos
Pues no, TP no tiene tal función pero puedes implementarla tu mismo, solo hay que saber que en la dirección de memoria $b800:0000 es donde empieza la memoria de video y que en modo texto de 80x25 abarca los siguientes 4000 bytes en parejas de dos, el primer byte es para el codigo ASCII del caracter, el segundo es para el atributo de color de ese caracter. Veamos esto en un ejemplo.
type
tpos=record { Posici¢n de la pantalla }
car:char;
attr:byte;
end;
tlinea=array [1..80] of tpos; { Linea de la Pantalla }
tpant=array [1..25] of tlinea; { Pantalla Entera }
var
pant:tpant absolute $b800:$0000; { Pantalla }
begin
pant[1,1].car:='A';
pant[1,1].attr:=15;
end.
Eso escribiría una 'A' en blanco intenso en la esquina superior izquierda de la pantalla, como pant es una variable puedes copiarla en otra del mismo tipo para capturar el contenido completo de la pantalla y restaurarla después cuando lo creas oportuno.
...
var
pant:tpant absolute $b800:$0000;
bkpant:tpant;
begin
bkpant:=pant; {captura la pantalla}
pant:=bkpant; {restauro la pantalla}
end.