Clipboard.GetTextBuf

[ixMike]

Hola, amigos.

¿Alguien podría decirme cómo funciona esa función? Yo hago esto, pero aparece un error (algo de puntero inválido, o función de puntero inválido, no lo recuerdo bien).

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var P: PChar;
begin
P:='';
If Clipboard.HasFormat(CF_TEXT)then Clipboard.GetTextBuf(P,NUMERO);
Memo1.Text:=P;
end;

En la ayuda de Delphi, donde pongo NUMERO dice que utilice la función GetTextLen, pero el Clipboard no la tiene. En NUMERO también probé con cero y con MAX_PATH (ya no sabía qué hacer).

Por supuesto, esto era un programa de prueba. No quiero "Pegar del portapapeles", sino extraer el texto del Portapapeles para modificarlo.

Utilizo Delphi 3 Standard.

Muchas gracias.