Anfangsbuchstabe eines Wortes

[ibp]

noch Eleganter:

Delphi-Quellcode:

function IsCapitel(s: Char): Boolean;
begin
  result := s in ['A'..'Z']
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(BoolToStr(IsCapitel('z'), True));
end;