var ss,s: string; begin ss := 'Delphi'; s := UpperCase(ss); ShowMessage(s); //DELPHI s := LowerCase(ss); ShowMessage(s); //delphi end;