Aus einem c ein C machen.. aber wie??

[Phoenix]

Delphi-Quellcode:

uses SysUtils;

procedure MachGross;
var
   gross: string;
   klein: string;
begin
   klein := 'das ist ein kleiner text';
   gross := Uppercase(klein);
end;

In gross steht nun "DAS IST EIN KLEINER TEXT" drin.