unit tw28650; {$mode objfpc}{$H+} interface function Test: PString; implementation uses SysUtils; function Test: PString; begin end; end.