Lazarus is an open source implementation of object Pascal. Basically an attempt to recreate Delphi as open source. Not bad honestly.