Komenda i parametr

Wiec mam taki problem.
Chce podzielic tekst tak aby 3 pierwsze litery to była komenda a reszta to parametr.
Rozumiecie? Zeby podzielił mi tekst 'CMDC:\program Files' na zmienna CMD i C:\Program Files
Z góry wileki THX

var  s:string='CMDC:\program Files';
{...}
procedure TForm1.Button1Click(Sender: TObject);
var  Par,Sc:string;
begin
  Par:=Copy(s,1,3);
  Sc:=Copy(s,4,Length(S)-3);
  caption:=par+'     '+Sc;
end;