Times Table

procedure TfrmMain.btnDisplayTableClick(Sender: TObject);
var
  x, y, num: integer;
  s: string;

begin
  num := 9;
  redDisplay.Clear;

    for x := 1 to num do
  begin
    s := '';
    for y := 1 to num do
      begin
        s := s + IntToStr(x * y) + #9;
      end;
      redDisplay.Lines.Add(s);
  end;
end;