[Casimiro Noteví]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 var
     iX : integer;
     cTexto : string;
 begin
     cTexto := 'ABCDEFGHIJK';
     for iX:=1 to Length(cTexto) do
         ShowMessage(cTexto[iX]);
 end;