Сортировка массива записей в StringGrid

[mr.stranger]

Здравствуйте, помогите пожалуйста с заданием
Pascal Lazarus
Обработка МАССИВА ЗАПИСЕЙ при помощи ТАБЛИЦЫ. Реализовать ввод одной записи по ЧАСТЯМ через поля Edit:
если введенные данные КОРРЕКТНЫ
(написать функцию проверки, получая на выходе boolean, с вызовом после каждого ввода и показом ShowMessage при некорректности)
и в таблице не содержится ДУБЛИКАТА,
то добавить запись в КОНЕЦ таблицы и ОЧИСТИТЬ поля ввода,
иначе выдать СООБЩЕНИЕ об ошибке ввода и не очищать Editы.
Ошибки для проверки: недопустимый ввод(числа в строках/строки в числах), пустая ячейка, значения в числах <=0
Для сортировки использовать Button('Сортировать') и три режима в RadioButton:
1) сортировки массива по 1му признаку записи;
2) сортировки по 2му признаку;
3) двойной сортировки - по строковому признаку, а если строка совпадает, то по 1му числовому признаку
Таблица для библиотеки: (название книги), (автор), (год издания)


Вот код для ввода в таблицу

procedure TForm1.Button1Click(Sender: TObject);
 var a,f1,f2,f3,b,c,q1,q2,q3,q4:integer;
ms1,ms2,ms3: array of string;
begin
q1 := 0;
q2 := 0;
q3 := 0;
q4 := 0;
 
SetLength(ms1,StringGrid1.RowCount);
SetLength(ms2,StringGrid1.RowCount);
SetLength(ms3,StringGrid1.RowCount);
 
 
for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[1,a]=Trim(Edit1.Text) then
q1 := 1;
for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[2,a]=Trim(Edit2.Text) then
q2 := 1;
for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[3,a]=Trim(Edit3.Text) then
q3 := 1;
q4 := q1 + q2 + q3;
 
Val(Trim(Edit1.Text),b,f1);
Val(Trim(Edit2.Text),b,f2);
Val(Trim(Edit3.Text),c,f3);
 
if (Length(Edit1.text)<>0) and (Length(Edit2.text)<>0) and (Length(Edit3.text)<>0) and (f3=0) and (f1<>0) and (f2<>0) and (c>0) then
begin
if q4 <> 3 then
begin
 
for a := 1 to StringGrid1.RowCount-1 do
ms1[a]:= Trim(StringGrid1.Cells[1,a]);
for a := 1 to StringGrid1.RowCount-1 do
ms2[a]:= Trim(StringGrid1.Cells[2,a]);
for a := 1 to StringGrid1.RowCount-1 do
ms3[a]:= Trim(StringGrid1.Cells[3,a]);
 
StringGrid1.ColCount := 0;
StringGrid1.ColCount := StringGrid1.ColCount + 4;
StringGrid1.RowCount := StringGrid1.RowCount + 1;
 
for a := 1 to StringGrid1.RowCount-2 do
StringGrid1.Cells[1,a] := ms1[a];
for a := 1 to StringGrid1.RowCount-2 do
StringGrid1.Cells[2,a] := ms2[a];
for a := 1 to StringGrid1.RowCount-2 do
StringGrid1.Cells[3,a] := ms3[a];
 
StringGrid1.InsertRowWithValues(StringGrid1.RowCount-2, ['', Edit1.Text, Edit2.Text, Edit3.Text]);
                                                                                               
for a :=1 to StringGrid1.RowCount-1 do
StringGrid1.Cells[0,a] := IntToStr(a)
end
else
ShowMessage('Дублированная запись');
end
else
ShowMessage('Ошибки в таблице');
end;

[macomics]

Сообщение от mr.stranger

for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[1,a]=Trim(Edit1.Text) then
q1 := 1;
for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[2,a]=Trim(Edit2.Text) then
q2 := 1;
for a := 1 to StringGrid1.RowCount-1 do
if StringGrid1.Cells[3,a]=Trim(Edit3.Text) then
q3 := 1;
q4 := q1 + q2 + q3;

for a := 1 to StringGrid1.RowCount-1 do
  if StringGrid1.Cells[1,a]=Trim(Edit1.Text) and
     StringGrid1.Cells[2,a]=Trim(Edit2.Text) and
     StringGrid1.Cells[3,a]=Trim(Edit3.Text) then
  begin
    q := 1;
    break;
  end;
if q = 0 then begin
  ... /* Добавление */
else
  ... /* Совпадение */
end;

Сообщение от mr.stranger

StringGrid1.ColCount := 0;
StringGrid1.ColCount := StringGrid1.ColCount + 4;
StringGrid1.RowCount := StringGrid1.RowCount + 1;

Не надо обнулять ColCount и тогда не понадобятся массивы.

/* StringGrid1.ColCount := 4; Нет необходимости, если свойство определено в конструкторе объектов */
StringGrid1.RowCount := StringGrid1.RowCount + 1;

Чтобы начать заполнять таблицу сначала либо заведите переменную инициированную начальным количеством строк и используйте ее значение в качестве индекса и количества строк, либо установите в свойствах StringGrid1 значение RowCount в 1.

[mr.stranger]

Вот так как-то получилось, только по непонятной причине следующая запись вносится через строчку, а не на следующую
Подскажите пожалуйста, как исправить

procedure TForm1.Button1Click(Sender: TObject);
 var a,f1,f2,f3,b,c,q:integer;
   ms1,ms2,ms3:array of string;
begin

SetLength(ms1,StringGrid1.RowCount);
SetLength(ms2,StringGrid1.RowCount);
SetLength(ms3,StringGrid1.RowCount);

Val(Trim(Edit1.Text),b,f1);
Val(Trim(Edit2.Text),b,f2);
Val(Trim(Edit3.Text),c,f3);

if (Length(Edit1.text)<>0) and (Length(Edit2.text)<>0) and (Length(Edit3.text)<>0) and (f3=0) and (f1<>0) and (f2<>0) and (c>0) then
begin

for a := 1 to StringGrid1.RowCount-1 do
  if (StringGrid1.Cells[1,a]=Trim(Edit1.Text)) and (StringGrid1.Cells[2,a]=Trim(Edit2.Text)) and (StringGrid1.Cells[3,a]=Trim(Edit3.Text)) then
    begin
      q := 1;
      break;
    end;
  if q = 0 then
  ShowMessage('Дублированная запись')
  else
  begin
  for a := 1 to StringGrid1.RowCount-1 do
    ms1[a]:= Trim(StringGrid1.Cells[1,a]);
    for a := 1 to StringGrid1.RowCount-1 do
    ms2[a]:= Trim(StringGrid1.Cells[2,a]);
    for a := 1 to StringGrid1.RowCount-1 do
    ms3[a]:= Trim(StringGrid1.Cells[3,a]);

    StringGrid1.RowCount := StringGrid1.RowCount + 1;

    for a := 1 to StringGrid1.RowCount-2 do
    StringGrid1.Cells[1,a] := ms1[a];
    for a := 1 to StringGrid1.RowCount-2 do
    StringGrid1.Cells[2,a] := ms2[a];
    for a := 1 to StringGrid1.RowCount-2 do
    StringGrid1.Cells[3,a] := ms3[a];

    StringGrid1.InsertRowWithValues(StringGrid1.RowCount-2, ['', Edit1.Text, Edit2.Text, Edit3.Text]);

    for a := 1 to StringGrid1.RowCount-1 do
    StringGrid1.Cells[0,a] := IntToStr(a);
  end;
end
else
ShowMessage('Ошибки в таблице');
end;