подскажите плиз.

var
s,m,p:string;
begin
//это дано
s:=xxxx@mail.ru:12345;

//Надо получить следующие

m:=xxxx;
p:=12345;