Поиск символа в тексте

for i:=0 to List.Count-1
    do begin
    a:=List[i];
    //для каждой строки текста выполняем
      for j:=1 to length(a)
      do begin
      //для каждого символа строки выполняем проверку
      if a[j] = '.' then a[j] := '4';
      end;
      end;

if a[j] = '.' then List[i][j] := '4';

List:= tStringList.Create;
    //создали список строк
    List.LoadFromFile(openDialog1.FileName);
    //закгрузили текст в область
    for i:=0 to List.Count-1
    do begin
    a:=List[i];
    //для каждой строки текста выполняем
      for j:=1 to length(a)
      do begin
      //для каждого символа строки выполняем проверку
      if a[j] = '.' then List[i][j] := '4';
      end;
    end;

    for j:=1 to length(a) do
      if a[j] = '.' then
        a[j] := '4';
    List[i] := a;

if a[j] = '.' then
        a[j] := 'аб';
    List[i] := a;

if a[j] = '.'
      then
      begin
        Delete(a, j, 1);
        Insert('aб', a, j);
      end;
    List[i] :=a;
...

var
word, text, new_text:string;
begin
word :=Edit1.Text;
text :='The cat sat on the Cat mat';
//заменяем первое слово "сat" в тексте text на слово word 
//без учета регистра
new_text :=StringReplace(text, 'cat', word, [rfIgnoreCase]);
ShowMessage(new_text);
 
end;

var a, word, s, d, w: String;
i, j, k, l, q, p, n, position: Integer;
begin
a:=Edit1.Text;
  
if trim(Edit1.text)=''
  then begin
    ShowMessage('Введите пожалуйста данные в поле ввода!');
    end else
    a:=' '+a+' ';
 
 
    for q:=2 to length(a)
    do begin
      if (a[q-1]=' ') and (a[q]<>' ') then
      word:=a[q]
      else if (a[q-1]<>' ') and (a[q]=' ')
      then begin
        word:=word+a[q-1];//нашли слово из Edit1
 
        position := AnsiPos(word, List[0]);
        if position=0
        then ShowMessage('Слово не найдено в тексте')
        else ShowMessage('Слово найдено');
 
      end else
        word:=word+a[q];
      end;
 
 
      List.SaveToFile(openDialog1.FileName);
      List.Free;
    end;
end.

if trim(Edit1.text)=''
  then begin
    ShowMessage('Введите пожалуйста данные в поле ввода!');
  end else делаем дальше

if trim(Edit1.text)=''
  then begin
    ShowMessage('Введите пожалуйста данные в поле ввода!');
    Exit
  end else делаем дальше

for n := 0 to x
  do begin
  k := PosEx('.', List[p], k+1);
  Pozizi9_to4ki[n]:=k;
  x:=x+1;
  end;