[Димона]

1.при нажатии левой кнопки мыши появляется кружочек.

Код:

if button=mbleft then shape1.shape:=stcircle;

а как чтобы при нажатии кнопки мыши в любом месте на форме?

2. вывести слова исходного текста без центрального символа

Код:

var
s:string;
dl,p,k,sl:integer;
begin
s:=memo1.lines.text;
dl:=length(s);
while pos(' ',s)<>0 do begin
p:=pos(' ',s);
sl:=copy(s,1,p-1);
k:=sl div 2;
delete(s,k,1);
end;
memo2.lines.add(s);
end;

вот че-то думала и не додумала..