{ Old file: tbs0331.pp } { } {$mode tp} unit tb0279; interface procedure a(s : string); implementation procedure a; begin end; end.