Comport1.Open;

  for i:=1 to 3 do
    begin
      sorszam:=StrToInt(StringGrid1.Cells[0,i]);
      kartyaszam:=StrToInt(StringGrid1.Cells[1,i]);
      csoport:=StrToInt(StringGrid1.Cells[2,i]);

      Comport1.WriteStr(char(hi(sorszam)) + char(lo(sorszam)));
      sleep(10);
      Comport1.WriteStr(char(hi(kartyaszam)) + char(lo(kartyaszam)));
      sleep(10);
      Comport1.WriteStr(char(csoport));
    end;