Во введенном тексте все местоимения вы, вас, вам, ваш и т.д. исправить на Вы, Вас, Вам, Ваш

procedure TForm6.Button1Click(Sender: TObject);
const
  Delimiters = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var i:integer;
    s, Slovo:string;
begin
  s := Memo1.Lines.Text;
 
  Slovo := '';
  For i:=1 to Length(s) do
  begin
     if s[i] in Delimiters then begin
        if (Length(Slovo)>0) then begin
          if (Slovo = 'вы') or (Slovo = 'вас')
                or (Slovo = 'вам') or (Slovo = 'ваш') then s[i-Length(slovo)] := 'В';
          Slovo:='';
        end;
     end
    else
        Slovo:=Slovo+s[i];
  end;
  if (Length(Slovo)>0) then
     if (Slovo = 'вы') or (Slovo = 'вас')
                or (Slovo = 'вам') or (Slovo = 'ваш') then s[Length(s)-Length(slovo)+1] := 'В';
 
  Memo1.Lines.Text := s;
end;

then s[i-Length(slovo)] := AnsiUpperCase(s[i-Length(slovo)])[1];