Code samples from DelphiPascal.com articles