Voy a contestar soble el punto del triangulo de pascal, por supuesto que tendrás que hacer algunos cambios pero de eso se trata, si no de nada sirve que te ayudemos.
Código Delphi
[-]
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
I,J : Integer;
Function GetNumero(Linea,Elemento: Integer):Integer;
function factorial(n:Integer): Integer;
var
f,i: Integer;
begin
f := 1;
for i := 2 to n do f := f * i;
Result := f;
end;
begin
Result := factorial(Linea) DIV ( factorial(elemento)*factorial(linea-elemento) );
end;
begin
for I := 0 to (SpinEdit1.Value - 1) do begin
for J := 0 to i do begin
StringGrid1.Cells[J,I] := (inttostr(GetNumero(i,j)));
end;
end;
end;
Ahí está el código y tú le pones las "flores" para que se muestre tal y como lo deseas asi como los objetos que se requieren.
Saludos y suerte.