преобразование маленькой буквы в заглавную-?

[Stilet]

Ребята вы хоть пробовали то что написали?
В таком виде оно может заругаться. Надежнее делать так:

var e,s:string;
begin
 s:=Edit1.Text;
 e:=AnsiUpperCase(s[1]);
 s[1]:=e[1];
 Edit1.Text:=s;
end;

[Rabbit]

Извиняюсь! Протупил!
AnsiUpperCase() - функция, которая возвращает строку.

Stilet, твой окд работает, только его нужно помещать не OnChange, а в OnExit, а то он в начало строки добавляет заглавную букву каждый раз. Ну и естественно обработку на пустую строку.

Я это так сделал:

function UpCaseEdit(Str: string): string;
begin
  if Length(Str) = 0 then Exit;
  Result:=Str;
  Result[1]:=AnsiUpperCase(Result)[1];
end;

procedure TForm2.Edit1Exit(Sender: TObject);
begin
  Edit1.Text:=UpCaseEdit(Edit1.Text);
end;

[DeKot]

В принципе тот же вариант от Stilet.
В первом случае замена по "клику" кнопки

procedure TForm1.Button1Click(Sender: TObject);
var str: string;
begin
  str:= Form1.Edit1.Text;
  str[1]:= AnsiUpperCase(Edit1.Text)[1];
  Form1.Edit1.Text:= str;
end;

Или же автозамена при выходе из Edit (то же самое - потеря фокуса)

procedure TForm1.Edit1Exit(Sender: TObject);
  var str: string;
begin
  str:= Form1.Edit1.Text;
  str[1]:= AnsiUpperCase(Edit1.Text)[1];
  Form1.Edit1.Text:= str;
end;

procedure TForm1.Button1Click(Sender: TObject); // "уводим"  фокус с Edit
begin
  Form1.SetFocus;
end;

[Stilet]

а то он в начало строки добавляет заглавную букву каждый раз.

Странно... С какого бы это? Вроде я проверял.

[DeKot]

Все зависит от того в каком обработчике разместить код.

[Rabbit]

Странно... С какого бы это? Вроде я проверял.

Я тоже с этим моментом не разобрался.

[ОДИНОЧЕСТВО В СЕТИ]

procedure TForm1.Edt1KeyPress(Sender: TObject; var Key: Char);
begin
  with Sender as TEdit do
    if (Text = '') or (Text[SelStart] = ' ')
      or (SelLength = Length(Text)) then
        if Key in ['а'..'п','р'..'я'] then
          Key :=chr(ord(Key)-32);
end;

[Stilet]

Key :=chr(ord(Key)-32);

Опасно... не на всякой раскладке сработает.

[ОДИНОЧЕСТВО В СЕТИ]

Опасно... не на всякой раскладке сработает.

if Key in ['а'..'п','р'..'я'] then

на русской сработает а для остальных вместо

Key :=chr(ord(Key)-32);

нужно

key:= upcase(Key)

[Stilet]

нужно

Ошибаешся upcase только аглицкие буквы любит
Тут нужно AnsiUpperCase.

Впрочем думаю автор уже давно все понял.