araya ekle ?

[raltundal]

iyi günler arkadaşlar bu programı bitirmek üzereydimki en can alıcı yerinde takıldım  

kod bu sizce bu araya ekle butonu neden eklemez

procedure TForm2.Button3Click(Sender: TObject);//ARAYA EKLE
var
nosu,satira:integer;
begin
satira:=edit9.text;
nosu:=satira+1;
form1.memo1.lines.insert(satira,'N'+nosu+' '+gkod1.text+' '+'POS[Y1]='+edit1.Text+' '+'POS[Y2]='+edit2.Text+' '+'POS[X1]='+edit3.Text+' '+'POS[X2]='+edit4.text+' '+'FA[Y1]='+edit5.text+' '+'FA[Y2]='+edit6.text+' '+'FA[X1]='+edit7.text+' '+'FA[X2]='+edit8.text);
form2.Hide;
end;

end.


arkadaşlar çözümü buldum değiştirilmiş olarak kod burda;

procedure TForm2.Button3Click(Sender: TObject);//ARAYA EKLE
begin
form1.memo1.lines.insert(StrToInt(edit9.Text),'N'+gkod1.text+' '+'POS[Y1]='+edit1.Text+' '+'POS[Y2]='+edit2.Text+' '+'POS[X1]='+edit3.Text+' '+'POS[X2]='+edit4.text+' '+'FA[Y1]='+edit5.text+' '+'FA[Y2]='+edit6.text+' '+'FA[X1]='+edit7.text+' '+'FA[X2]='+edit8.text+' '+';'+edit10.text);
form2.Hide;
end;

end.