ошибка в выводе

[mr.stranger]

procedure TForm1.Button1Click(Sender: TObject);
 var a,b,c,d,f1,f2,f3,q1,q2,q3,q4:integer;
begin
q1 := 0;
q2 := 0;
q3 := 0;
q4 := 0;

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
with StringGrid1 do
InsertRowWithValues(RowCount-1, [IntToStr(RowCount-1), Edit1.Text, Edit2.Text, Edit3.Text]);
end
else
ShowMessage('Дублированная запись');
end
else
ShowMessage('Ошибки в записи');
end;

[mr.stranger]

Простите, что я такой хлебушек, спасибо за помощь

[macomics]

Странно. У меня все работает. Вы точно под заголовком не оставляете пустую строку (RowCount := 2)?

[mr.stranger]

После выхода из лазаруса заработало как у вас
Осталось с сортировкой разобраться