Text umwandeln zu Morsecode :)

[Levium]

HeyHo
Also ich habe da so ein kleeeeines Problem ^-^..
Ich wollte ganz einfach in ein Textfeld einen Text eingeben und dann auf Knopfdruck den gleichen Text als Morsecode in ein Labelfeld zB haben ..
hab mir das ganz einfach vorgestellt ..
aber irwi komm ich einfach nicht weiter

..

Ich hatte einfach mit dem hier angefangen...

var s: string; i:integer;
begin
s:= edit1.Text;
for i:= 1 to length(s)do
if s[i]='0' then s[i]:='. . . . .'
dann wollte ich das natürlich irwi weiter machen mit else .. nur dann habe ich es halt irwi versucht aber es hat einfach nicht geklappt :< ..


Kann mir bitte jemand sagen, wie ich das nun hinkrieg ?!

Vielen Dank schon mal