Как проверять текстовые переменные с другими текстовыми переменными разницей в одну букву?

procedure TForm13.FormCreate(Sender: TObject);
begin
z2[1,1]:='Азия, Африка ––'; \\ сам вопрос 
end;
 
procedure TForm13.FormShow(Sender: TObject);
begin
i2:=1;
sLabel1.Caption:=z2[i2,1];\\ у меня два варианта теста первый начинается с 1 пункта второй с 19, тут буду проверять какой варианты теста выбрал человек(это я уже сам сделал тут убрал)
end;

procedure TForm13.sButton1Click(Sender: TObject);
begin
If i2=1 then \\ первый вопрос теста, дальше будет проверяться 2, 3 ,4 и тд.
begin
if (sEdit1.text='Части света')or(sEdit1.text='части света')   \\ я не знаю как буду писать с мал. или большой буквы
    then
    begin
    geo1:=geo1+2;   \\ начисление балов по определённому направлению 
    z2[i2,2]:=sEdit1.text;  \\ сохранение ответа в массив 
    sEdit1.text:='';  \\ очистка эдита от слова 
    i2:=i2+1;   \\ следующий вопрос 
    sLabel1.Caption:=z2[i2,1]; \\ новы текст в лейбе 
    end
    else
          if (sEdit1.text='Материки')or(sEdit1.text='материки')or(sEdit1.text='континенты')or(sEdit1.text='Континенты')  \\ есть разные ответы и оцениваются по разному (по кол-ву балов )
              then
                begin
                geo1:=geo1+1;
                z2[i2,2]:=sEdit1.text;
                sEdit1.text:='';
                i2:=i2+1;
                sLabel1.Caption:=z2[i2,1];
                end;
end;

function A1(S1,S2:String):Integer;
var P1,P2:PChar;
var Err1:Integer;
var I1:Integer;
begin
Err1 := 0;
P1 := PChar(S1);
P2 := PChar(S2);
for I1 := 0 to Length(S1)-1 do
begin
try
if P1[I1]<>P2[I1] then
begin
Err1 := Err1+1;
end;
except
result := -1;
Exit;
end;
end;
result := Err1;
end;

(sEdit1.text='Материки')or(sEdit1.text='материки')

  if Edit1.Text = '' then
    Exit; //если пустой- выход
 
  ShowMessage(Edit1.Text); //не появится уже

procedure TForm1.Button1Click(Sender: TObject);
var mat,rus,geo:double;
begin
mat:=25.55;
rus:=48.26;
geo:=100-mat-rus;
Chart1.Legend.Visible:=false;
with Series1 do
 begin
  Marks.Style:=smsValue; //в метку значение
  Add(mat,'Математика',clBlue);
  Add(rus,'Русский язык',clRed);
  Add(geo,'География',clGreen);
 end;
end;