Unit Unit1;

Interface

Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

Type
TForm1 = Class(TForm)
Label1: TLabel;
Function VertikalText(s:string):String;
Procedure FormCreate(Sender: TObject);
Private
{ Private declarations }
Public
{ Public declarations }
Eend;

Var
Form1: TForm1;

Implementation

{$R *.dfm}
Function Tform1.VertikalText(s:String):String;
Var i:integer;
temp:String;
Begin
temp := '';
For i := 1 To strlen(pchar(s)) Do
Begin
temp := temp + copy(s,i,1) + #13;
End;
VertikalText := temp;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
label1.Caption := form1.VertikalText('pellesoft');
End;

End.