1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, MMSystem, MPlayer, Buttons, WebAdapt,
  WebComp ;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Label1: TLabel;
    StringsValuesList1: TStringsValuesList;
    procedure Button1Click(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Timer1Timer(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

uses main;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin
close;
end;


//Fenster verschieben
 procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 ReleaseCapture;
 Perform(WM_SYSCOMMAND, $F012, 0);
end;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
 Label1.Top := Label1.Top - 30

end;

//Fenster verschieben
  //ausfaden
 type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form2.AlphaBlend:=True; //Alphablend einschalten
  Form2.AlphaBlendValue:=Form1.AlphaBlendValue - 5;
  if Form2.AlphaBlendValue = 0 then Close; //Programm nach ausfaden schließen
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

const
  STEP_WIDTH = 5;

var
  zeile: array[0..2] of string;
  y: Integer = 20;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered := True; // DoubleBuffering, damit kein Flackern entsteht
  zeile[0] := 'Ein';
  zeile[1] := 'kleiner Text';
  zeile[2] := 'zum Ausgeben...';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: Byte;  // mehr als 256 Zeilen wirst du ja wohl nicht haben ;-)
begin
  inc(y, STEP_WIDTH);  // dasselbe wie y := y + STEP_WIDTH
  Canvas.Rectangle(0, 0, ClientWidth - 1, ClientWidth - 1);
  for i := 0 to 2 do
    Canvas.TextOut(20, y + (Canvas.TextHeight('X') + 3) * i, zeile[i]);
end;                    

1:

Label1.Caption := 'blalalalala' + #13#10 + 'qqqqqqqqq';