1:
2:
3:
4:
5:
6:
7:

procedure blabla;
var
  Buchstabe : String;
begin
  Buchstabe := 'A';
  if Buchstabe[1] = ... // so wird das als Char angesprochen
end;					

1:

Pos(Sub, Str);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure xyz;
var s: string;
    i: integer;
begin
  s := 'Das ist der String';
  for i := 1 to Length (s) do
    if s[i] in ['a'..'z','A'..'Z','0'..'9'] then
      // Mach das, was Du tun willst...
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:

niGrA := ord( 'A' );  // habe ich nur gemacht, da ich die ORDs nicht auswendig kenne
niGrZ := ord( 'Z' );  // und es die Sache besser veranschaulicht
niKlA := ord( 'a' );
niKlZ := ord( 'z' );
ni0   := ord( '0' );
ni9   := ord( '9' );
lbOK  := true;

niI := length( csString )-1;
for niI := 0 to niI do begin
   csBuchstabe := copy( csString, niI, 1 );
   if ( ( ord( csBuchstabe ) >= niGrA ) and ( ord( csBuchstabe <= niGrZ ) ) or
      ( ( ord( csBuchstabe ) >= niKlA ) and ( ord( csBuchstabe <= niKlZ ) ) or
      ( ( ord( csBuchstabe ) >= ni0 ) and ( ord( csBuchstabe <= ni9 ) ) then 
      // Ich habe die Logik etwas verdreht, an dieser Stelle passiert bewusst nix!
   else
      lbOK := false;
   application.processmessages;
end;

// Hier kannst du nun lbOK auswerten.
if lbOK = false then begin
   // Meckern oder sonst was
end;					

1:
2:
3:

  for i:=1 to length(orgtext) do
    if (ord(orgtext[i])<=90) and (ord(orgtext[i])>=65) then
      vertext:=vertext+orgtext[i];					

1:
2:
3:
4:
5:

for i:=1 to length(orgtext) do
  if (ord(orgtext[i])<=90) and (ord(orgtext[i])>=65) //90=Z 65=A
  or (ord(orgtext[i])<=122) and (ord(orgtext[i])>=97) //122=z 97=a
  or (ord(orgtext[i])<=57) and (ord(orgtext[i])>=48)  then //57=9 48=0
      vertext:=vertext+orgtext[i];