procedure TForm1.Button5Click(Sender: TObject);
var
  ACol, i, j, g : integer;
  tempCPosition, bPos : HPoint;
  tablePos : IntPoint;
  joinCount : integer;
  lol : string;
begin
  tempCPosition := HPoint.Create;
  bTables := TList.Create;

  for i := 0 to Memo6.Lines.Count - 1 do
  begin
    ACol := StringGrid1.Rows[0].IndexOf(Memo6.Lines[i]);
    if (ACol = -1) then continue;
    //showMessage(intToStr(ACol));
    for j := 1 to StringGrid1.RowCount - 1 do
    begin
      if (StringGrid1.Cells[ACol,j] = 'a') or (StringGrid1.Cells[ACol,j] = 'b') then
      begin
        highlightRow(j, clGreen);
      end;

      if (StringGrid1.Cells[ACol, j] = 'c') then
      begin
        tempCPosition.x := j;
        bPos := findB(tempCPosition);
        tablePos := IntPoint.Create;
        tablePos.value := bPos.x;
        bTables.Add(tablePos);
        //ShowMessage(IntToStr(bPos.x));
        highlightRow(bPos.x, clGreen);
      end;
    end;
  end;

  for i := 1 to StringGrid1.RowCount - 1 do
  begin
    joinCount := 0;
    for j := 0 to bTables.Count-1 do
    begin
      tablePos := IntPoint (bTables[j]);
      if hasABjoin(i, tablePos.value) then joinCount := joinCount + 1;
    end;
    if (joinCount = bTables.Count) then highlightRow(i, clYellow);
  end;
  StringGrid1.Refresh;

end;