ненавижу перевёрнутый стол 

procedure TForm5.Button1Click(Sender: TObject);
var
ToFind: string;
FindIn: string;
Found: integer;
FoundLen: integer;
begin
ToFind:=Edit1.Text;
FindIn := Memo1.Text;//Текст, где будем искать
FoundLen := Length(Edit1.Text);
Found := Pos(AnsiUpperCase(ToFind), AnsiUpperCase(FindIn));

IF Found > 0 then
begin
Memo1.SelStart:= Found-1;
Memo1.SelLength := FoundLen;



end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
year, raznica, n: integer;
s: string;
begin
year:=StrtoInt(Edit1.Text);
raznica:=2009-year;
n:=raznica mod 12;
case n of
0: Edit2.Text:='Бык';
1: Edit2.Text:='Крыса';
2: Edit2.Text:='Кабан';
3: Edit2.Text:='Собака';
4: Edit2.Text:='Петух';
5: Edit2.Text:='Обезьяна';
6: Edit2.Text:='Коза';
7: Edit2.Text:='Лошадь';
8: Edit2.Text:='Змея';
9: Edit2.Text:='Дракон';
10: Edit2.Text:='Кот';
11: Edit2.Text:='Тигр';
end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
var OldText:String;
begin
if Edit1.Text<>'' then
try
  StrToFloat(Edit1.Text);
  OldText:=Edit1.Text;
except
  Edit1.Text:=OldText;
  Edit1.SelStart:=Length(Edit1.Text);
  Edit1.SelText:='';
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
end;

end.
 

півнапершу.
підготовка до іспиту.
тільки Міша міг так дивовижно  влучно сказати що я вивчив з Delphi

"как намутить эбаут, попап меню и особенно как при помощи ф12 хуячить ебанное ничего" 


а все-таки у душі я не математик.

   Микочка, я тебя очень люблю.  Спасибо тебе.

ПРОГРАШ


- Копай!
- Ні, я не хочу...
- Кому кажу, копай!
- Ні, я не буду! Й навіть не проси!
- А я й не прошу...Я наказую, ти знаєш. Мені однаково, що ти там хочеш, чого прагнеш і бажаєш. Мені плювати!
- Та я ж боюсь...Їй-богу, мені страшно. Ось вже й руки тремтять. Як мені з такими руками копати? Га?
- Копай зубами!
- А може попросити когось іншого? Вони ж однаково все знають. Вони завжди все знають...
- Ні, вони не будуть.
- Ага...не будуть. Чого не будуть? Бо проти? Га? Ти ж чув, що вони проти? Чув? Усі, мов один, сказали своє «ні», поставили підписи. І отой, ти сам знаєш, отой, що головний, він сам ще проти. І він у них спитає. Спитає, а вони йому усе й розкажуть!
- Він не спитає.
- Я думаю, що запитає. Не він, так інші запитають. Запитають так, що вони не витримають, зламаються і всім розкажуть: хто, де й коли.
- Розкажуть, не розкажуть – це не твоя справа! І, взагалі, з яких це пір ти думаєш?
- Ах! Звісно! Я не думаю... А чого? Скажи мені чого це я не думаю? Бо в мене все без логіки, без дедукції, все якось туманно і розмито? Бо хтось колись сказав, що я не вмію думати! А ти! Ти інша справа! Ти у нас найкращий! Все обміркував, все продумав, все в тебе чітко і ясно. Все за планом. Все розписано до кожної дрібнички.
- Мовчи!
- Ах, мовчи! Мовчи, кричи, пиши, копай, співай, танцюй, ламай...Завжди вказуєш, що робити...
- Без мене ти ніщо. Нуль. Розумієш?
- Ага...а чи не через тебе, головний, ми минулого разу «програли»? І позаминулого, і позапозаминулого, і завжди! Завжди через тебе ми в дурнях! А потім караємося, мучимось, страждаємо... І хто страждає? Я! За всіх страждаю тільки я!
- Пробач, але така у тебе доля. У всіх у нас така доля. Один за всіх, і всі для одного...І я. Я теж для нього, тож не видумуй. Мерщій закопуй, поки непритомна.
- Вона жива? Вона жива! Ні, я не можу.
- Так вдар її! А краще задуши. Задушиш – буде мертва.
- Я не душитиму. Не можу.
- Живуча... Ота була гарніша і заможна. А тільки вдарив я, так мертвою злягла...Дивно.
- А від цієї пахне мигдалем. І посмішка...Я думаю, зостанеться.
- Та досить вже...І ця помре. А Він піде.
- Б’ємося об заклад?
- Як хоч. Тсс... Говорять. Послухаймо, що буде...

- Я йду. Лишаю стіл, стілець і чашки.
- Вони розбилися?
- Ні, я їх усі розбив. Ось гаманець. Бери скільки захочеш.
- Не буду. Краще залишись.
- Ні.
- Може...
- Хто «може»? Ти? Та не сміши!
- Ні, я не можу. Але разом...Ми зможемо! Я обіцяю...
- Ні.
- Благаю, милий, залишись, ну хоч на день!
- Ні...Я стомився. Ти для мене – нуль.

- Ну от, тепер не дихає. Закопуй, ти програв.

рисовать словами
считать буквами
и писать цифрами
читать карусели
и кататься на книжках

можно плавать в потоках бреда.
главное не забыть одеть закрытый купальник
торонто в опастности

всётаки жизнь придумал гений. я даже уверен , что не злой.
без смеха "ухахахаха" когда создал её.

Good morning, and in case I don't see ya, good afternoon , good evening, and good night!

два месяца воздержания ...
и типерь я такой-же как и прежде.

владимирка
23
шампанское
Одесса
наш мир
наша реальность
наш снег
и наша радость.
наш рассвет и закат.
твоё тепло.
твоя улыбка.
твои глаза.
и наше лето...

больно

що зміниться , якщо життя скінчиться...
тільки напрям думок

сорвал кожу на руке
давно не видел крови у себя на теле
как-то вернуло к реальности
как-то херово мне
как-то устал
ваниль только в лимонаде . в жизни её мало
красиво , не красиво . да кого нынче это парить должно.
запятая , точка. даже это для себя не сделать . ставь там где надо .
делай то что надо.живи так как надо.
видь кого надо.
слышь что надо.
делай что захочешь ?
не выйдет.
не получется.
не сможешь
не поймут и не оценят.
люблю туман.
кто любит запах смолы ? я люблю
кто любит смотреть ? я люблю
кто любит ? я люблю
кто жить хочет для себя ?
Я.
не выйдет.
не получится
не оценят и не поймут.
тик так.
время идёт.
забирает=лечит
время=лечит
время забирает.
забирает
берёт
не отдаёт
.
не делится. не советуется.не плачет в желетку.а нагло забирает.
в замен лечит ? мы так решили чтобы не думать о том что у нас воруют.
хах.
сами отдаём если думаем что время лечит.
любить.дышать.слышать.
ты.
ты.
ты
.
ты.
ты.
ты.
и много месяцев лета

всего-лишь одна жизнь
и всёравно живём её не для себя

эх лето, лето ))
пропало . но не пропали хорошие воспоминания . радует ,что плохие не запомнились.
что-то изменил в себе сам. что-то изменили окружающие.
да.
дождь . уже идёт дождь )) как так ?? вчера же плавился асфальт и бегали довольные школьники .
хорошее имеет привычку быстро кончаться . не уверен что это плохо. даже думаю что хорошо.
зачем ты живёшь ?
а чтобы было заебись...

жизнь - одни случайности. ни больше, не меньше.
а еще , самый стрышнай звук - звук , когда стучит земля о крышку гроба.

наче птах у небі...

You Don't Know
Princess
The Most Beautiful Girl

и месяц лета

Тишина.А что еще ?) ничего кроме тишины в голове. на душе тишина. всюду тишина.не скажу что это плохо. это как-то , не как всегда.
время тоже молчит. оно летит так быстро и безвучно , что его трудно уловить.
прикольно было бы имено кнопку и менять всё местами.так , для разнообразия.