Практическая в Delphi 7

[savitskiykb]

Всем здравствуйте!
Помогите выполнить практическую работу в Delphi 7.
Учусь на 1 курсе, еще не сильно разбираюсь.
Нужно написать простую "программку".
Допустим, на форме расположены квадрат и круг.
При нажатии на круг - появляется надпись "привет".
При нажании на квадрат - надпись "привет убирается" и появляется другая надпись. (ну это как пример задания)

Что-то такое:

Unit txtxx; 
interface uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs, StdCtrls, ExtCtrls; 
type 
TForml = class (TForm) Shapel: TShape; 
Shape2: TShape; 
Labell: TLabel; 
Label2: TLabel; 
procedure ShapelMouseDown (Sender: TObject); 
Button: TMouseButton; 
Shift: TShiftState; 
X, Y: Integer; 
procedure Shape2MouseDown (Sender: TObject); 
Button: TMouseButton; 
Shift: TShiftState; 
X, Y: Integer; 
private 
{Private declarations} 
public 
{Public declarations) 
Forml: TForml; 
implementation {$ R * .DFM} 
procedure TForml.ShapelMouseDown (Sender: TObject); 
Button: TMouseButton; 
Shift: TShiftState; 
X, Y: Integer; 
  (метод обработки события OnMouseDown для компоненты Shapel} begin 
labell.caption = 'Ky-Ky'; {изменение подписей обеих отметок} 
label2.caption: = ''; 
end; 
procedure TForml.Shape2MouseDown (Sender: TObject); 
Button: TMouseButton; 
Shift: TShiftState; 
X, Y: Integer; 
{метод обработки события OnMouseDown для компоненты Shape2) 
begin 
label2.caption = 'Ky-Ky-pi-Ky'; (изменение подписей обеих отметок} 
labell.caption: = ''; 
end; 
  end.

Кто может помочь, ответьте, как с вами связаться.
Либо свяжитесь со мной:
Skype: savitskiykb
ICQ: 644350709
VK: https://vk.com/savitskiykb
savitskiykb@gmail.com

[Stilet]

Что-то такое:

Ну. Нормальный на первый взгляд код. Что не так?

[pu4koff]

С отсканенной книжки с использование OCR код взят чтоли?
1. Беда со скобками в камментах (даже форумный тэг их подсвечивает вон как красиво)
2. оператор присваивания не =, не : =, а :=
3. Это вообще что-то с чем-то:

procedure ShapelMouseDown (Sender: TObject); 
Button: TMouseButton; 
Shift: TShiftState; 
X, Y: Integer;

[min@y™]

Ой, я с вас умоляю!

[savitskiykb]

Сообщение от Stilet

Ну. Нормальный на первый взгляд код. Что не так?

Это в задании примерный код. А мне надо самому такой код написать, тупо скопировать не катит.

[min@y™]

А мне надо самому такой код написать, тупо скопировать не катит.

Ну дык мы и не возражаем. Пиши на здоровье.

[Stilet]

А мне надо самому такой код написать

Так а от нас какая помошь требуется?

[savitskiykb]

Сообщение от Stilet

Так а от нас какая помошь требуется?

Я искал тут человека, который поможет выполнить таких несколько работ, по образцу, ибо сам не освоил делфи.

[min@y™]

который поможет выполнить

который выполнит.
за копеечку.
Я прочитал твоё сообщение, которое заблочил мой антиспам-бот.

[Stilet]

Я искал тут человека, который поможет выполнить таких несколько работ

Поможет чем?
Ты говоришь:

А мне надо самому такой код написать, тупо скопировать не катит.

Так чем помочь-то?