procedure TFMain.SGmainSetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: string);
var s1, s2,str:string; i,row:integer;
begin
  if (ACol=2) then
begin
   if (Value='') then begin

   SGmain.Cells[1,Arow]:=' ';

   end;
   if (length(Value)>=2) then
   begin

   SGmain.Cells[2,Arow]:=AnsiUpperCase(Value);

   end;
   end;

if (ACol=1) then
begin
   if (Value='') then begin

   SGmain.Cells[2,Arow]:=' ';
   end
else begin
SGmain.in
   SGmain.Cells[1,Arow]:=AnsiUpperCase(Value);
   for i:=Low(cmd) to High(cmd) do
begin
if cmd[i,1]=AnsiUpperCase(Value) then begin
   mem[arow]:=(StrToInt('$'+cmd[i,0])+N);
   SGmain.Cells[1,Arow]:=cmd[i,1];
   SGmain.Cells[2,Arow]:=cmd[i,0];
end;
    end;
   end;
end;
end;