[Alegun]

Что-то такое

Код:

function ucw(ds:string): string;
var
 i: integer;
begin
 if ds <> '' then
   for  i:= 1 to Length(ds) do
     if i = 1 then ds[i]:= AnsiUpperCase(ds[i])[1]
        else
          if (ds[i]   = ' ') and (i+1 < Length(ds)) then
              ds[i+1]:= AnsiUpperCase(ds[i+1])[1];

 ucw:= ds;
end;

пример использования

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:= ucw(Edit1.Text);
end;