كيف يمكنني تطبيق كود Consol في الدلفي Win32 Form

اخواني كيف يمكنني تطبيق هذا الكود على الدفي باستخدام زر واظهار النتيجة على شكل رسالة او في label مثلا

ولكم الشكر

var
x,y : real;
i :integer;
begin
writeln('X Y');
for i:=0 to 10 do
begin
x:=10*i;
y:=3*sqr (x)-12*x-1;
writeln(x:10 :2, y:10 :2);