Как написать на Delphi7 червя?

[Leviathan]

Приведите пример написания червя на Delphi7

[eoln]

program Project1;

{$APPTYPE CONSOLE}

uses
  windows;
var ph1, ph2:pchar;
begin
    ph1 := 'червь';
    AnsiToOem(ph1,ph2);
    write(ph2);
    readln
end.