Подскажите, что не так

procedure TForm1.PressEnter( Sender: TObject );
var
 ScanCode : byte;
begin
 ScanCode:=Lo(MapVirtualKey(VK_RETURN,0));
 keybd_event(VK_RETURN,ScanCode,0,0);
 keybd_event(VK_RETURN,ScanCode,KEYEVENTF_KEYUP,0);
end;

ой, извините, заработало :)

Здаров
В Рунете появился новый портал, который должен облегчить жизнь нашим студентам. В одной базе сочинений создатели портала постарались собрать все имеющиеся <a href=http://www.free-referats.info/>рефераты</a> в русскоязычном интернете. Но вроде как вход в базу не бесплатный.