Scripts posted recently tagged to pascal in Kelpi

unit Singletn;
{ jamesh@obsof.com }
{ Delphi Examples of Design Patterns

{ http://www.brain.uni-freiburg.de/~klaus/pascal/sources/ }
function TextPos (var f:text) : longint; { returns -1 in case of an error }
var
  reg : registers;
begin

PROGRAM test;
USES mysql;
CONST
DataBase : Pchar = 'db_prueba';
Query : Pchar = 'select count(*) from tb_prueba';

{Philippe Martinole, http://wiki.lazarus.freepascal.org/TAChart}
procedure TForm1.Button12Click(Sender: TObject);
var
  TALine:TTALine;
begin

{http://wiki.lazarus.freepascal.org/TAChart}
procedure TForm1.Button1Click(Sender: TObject);
var
  Serie:TTASerie;
  i:Integer;