AJUDAA!!!!!!!

PRECISO DE AJUDA....

o nome do aluno está assim: PEDRO DA SILVA
tenho que deixar assim: Pedro da Silva
até agora eu consegui deixar assim: Pedro Da Silva

mas o DA, DE, DOS, DO, E tem que ser minusculo ´Pedro da Silva´

como eu faço para verificar essas excessões.?? alguém já trabalhou com isso antes???
essas sao as linhas...
me ajudem... por favor... t+

var
x,i,iPos:Integer;
slTexto:TStringList;
begin
slTexto:=TStringList.Create;
iPos:=1;
for i:=0 to Length(Edit1.Text) do
begin
if Edit1.Text[i]=´ ´ then
begin
if iPos<>1 then
iPos:=iPos+1;
slTexto.Add(Copy(Edit1.Text,iPos,i-iPos));
iPos:=i;
end;
end;
if iPos>1 then
slTexto.Add(Copy(Edit1.Text,iPos+1,i-iPos))
else
slTexto.Add(Copy(Edit1.Text,iPos,i-iPos));
Edit1.Clear;
if slTexto.text<>´´ then
begin
for i:=0 to slTexto.Count-1 do
begin
{for x:=0 to Memo1.Lines.Count-1 do
begin
Edit1.text:= Edit1.text+(Minuscula(slTexto[i]));
end;}
Edit1.text:= Edit1.text+(Maiuscula(slTexto[i]));
if i<>slTexto.Count-1 then
Edit1.text:= Edit1.text+´ ´;
end;
end;