[MiB]

Как сделать чтобы первая буква в tedit всегда была в верхнем регистре????

[ART]

Мона так:
//------------------------------------------------------
procedure TForm1.Edit1Change(Sender: TObject);
begin
edit1.text:=AnsiUpperCase(copy(edit1.Text,1,1))+An siLowerCase(copy(edit1.Text,2,length(edit1.Text)-1));
end;
//-------------------------------------------------------

[MiB]

тогда указатель всегда в начале остается...