Anfangsbuchstabe eines Wortes

[Luckie]

Eleganter:

Delphi-Quellcode:

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

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