كيف نجعل لابل1 تعرض المواضيع عموديا وليس افقيا

[fouadhdfouad]

تفضل اخي الكريم

procedure TForm1.Button1Click(Sender: TObject);

var
I : Integer;
S1, S2 : string;
begin
S2 := '';
S1 := 'Hello World';
for I := 1 to Length(S1)do
S2 := S2 + S1[I] + #10 + #13;
Label1.Caption := S2;
end;

end.