[lmikle]

Код:

Edit1.Text := AnsiUpperCase(Copy(Edit1.Text,1,1)) + 
                    Copy(Edit1.Text,2,Length(Edit1.Text)-1);

или

Код:

var
  C : Char;
begin
  C := Edit1.Text[1];
  Case C Of
    'a'..'z' : C := Chr(Ord('A') + Ord(C) - Ord('a'));
    'а'..'я' : C := Chr(Ord('А') + Ord(C) - Ord('а'));
  End;
  Edit1.Text[1] := C;

Во втором случае:
1. В первой строке все буковки англ, во второй - русские
2. Если не дает использовать Edit1.Text[1], то делать через буф. строку.