procedure ShowMessges(const msg : array of string);
var
 I : LongInt;
begin
  for I:=low(msg) to high(msg) do
  ShowMessage(Msg[I]);
end;