procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:= WideCharToString(#1086); // буква 'о' end;