Area y longitud de la cinrcunferencia

Comienzo preparando los controles que necesito en un ficha nueva como puedes ver en la imagen.

Objetos utilizados: Los textos que ves como Radio, Area, y Longitud, son controles Tlabel . Los cuadros a la derecha de cada control son TEdit. He puesto un botón(TButton) para lanzar el calculo  y otro botón para cerrar el programa ; todos ellos de la paleta standard. Observa los nombres que les he puesto, en realidad solo es necesario dar nombre a los controles que vamos a nombrar por nuestra cuenta, aunque siempre podemos utilizar el nombre por defecto que les dá el Delphi, pero es más feo.
Hacerte observar que yo simplemente he escrito 'a dedo' el codigo del  evento On_Clic del boton Calcular y el  codigo evento On_Clic del botón Cerrar; el resto lo ha construido el Delphi mientras que yo he ido arrastrando objetos a la ficha (Esto es un chollo).
El código del programa:
unit circuns;

interface

uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
stdctrls;

type
tcircunferencia = class(tform)
radio: tedit;
area: tedit;
longitud: tedit;
calcular: tbutton;
label1: tlabel;
cerrar: tbutton;
procedure calcularclick(sender: tobject);
procedure cerrarclick(sender: tobject);
private
{ private declarations }
public
{ public declarations }
end;

var
circunferencia: tcircunferencia;

implementation

{$r *.dfm}

procedure tcircunferencia.calcularclick(sender: tobject);
var
r,ar,lon:real;
a,l:string; //recogen el resultado
i:integer; //codigo de control
const
pi=3.1416;
begin
val(radio.text,r,i); //convierte un texto a un valor numerico
ar:=pi*r*r;
lon:=2*pi*r;
str(ar:6:2,a);
str(lon:6:2,l);
area.text:=a;
longitud.text:=l;
end;

procedure tcircunferencia.cerrarclick(sender: tobject);
begin
close;
end;

end.
Comentarte dos ordenes que pueden llamarte la atención:

val	Que convierte un texto en valor número. Es necesario para operar con él ya que los   TEdit reciben valor alfanumerico. Podria haber utilizado strtoint
str	Que convierte un  valor número a texto. Necesario para albergar el numero de la     solución a la etiqueta area. Podria haber utilizado inttostr

Y este es el programa ejecutando: