Ocean example for Delphi

procedure TForm1.OceanClick(Sender: TObject);
begin
   LEADImage1.Ocean( 20, 6, False );
end;