Пожалуйста помогите написать программу на Pascal ABC NET

Пожалуйста помогите написать программу на Pascal ABC NET
Определить в какую четверть координатной плоскости попала точка с
координатами (x,y). Переменной N присвоить номер четверти. Если точка
попала в начало координат, то N=0. Если точка попала на ось X или Y, то
напечатать сообщение об этом.

Желательно полностью программу, как она будет выглядить

  • procedure TForm1.btn1Click(Sender: TObject);
    var x,y:Real;
    begin
    x:=strtofloat(edt1.Text);
    y:=strtofloat(edt2.Text);
    if (x>0) and (y>0) then
    ShowMessage('Первая четверть')
    else; if (x=0) and (y=0) then
    ShowMessage('Начало координат')
    else if (x<0) and (y>0) then
    ShowMessage('Вторая четверть')
    else if (x<0) and (y<0) then
    ShowMessage('Третья четверть')
    else if (x>0) and (y<0) then
    ShowMessage('Четвертая четверть')
    else if (x=0) and (y<>0) then
    ShowMessage('Лежит на оси x')
    else if (x<>0) and (y=0) then
    ShowMessage('Лежит на оси y')
    else
    end;

    текст кнопки в делфи.. . два эдита и бттон