pdword是什么类型,我怎么没见过;
好象有一种强制转换的方法 String(变量)
下面是文字的滚屏显示
procedure TfShareAboutBox.LabelMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Line:integer;
    I:integer;
begin
  if (Button = mbRight) and (ssShift in Shift) then
  begin
    Panel_Declaration.Visible := false;
    Line := PaintBox_AboutBox.Canvas.TextHeight('0');
    for I:=0 to 150 + Line * 10 do
      with PaintBox_AboutBox.Canvas do
      begin
        Font.Name := '宋体';
        Font.Size := 9;
        Font.Color := clBlue;
        TextOut(2,65 - I,'干掉日本人');
        TextOut(30,65 + Line * 2 - I,'杀杀杀杀杀');
        TextOut(35,65 + Line * 4 - I,'杀杀杀');
        TextOut(35,65 + Line * 5 - I,'杀杀');
        Delay(0,5);
      end;
    Panel_Declaration.Visible := true;
  end;
end;