procedure TForm1.Button1Click(Sender: TObject);
var i,count:integer; m2:string;
begin
count:=memo1.lines.count-1;
//Минус один -> потому что отсчет начинается от нуля
for i:=0 to count do
//Отсчет начинается от нуля в строках мемо
begin
m2:=memo1.lines[i];
memo2.lines[i]:=copy(m2, 1, pos(':', m2)-1);
//Копируем строку, первый параметр -> откуда копируем, второй -> с какого расположения символа начинаем копировать, третий -> сколько копируем
//Ах да, чтобы копировать в memo2 в определенную строку в ней -> надо убедиться что она существует :), т.е. лучше копировать в memo1
end;
end;

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
extern char* mystrcpy(char* dest, char* src);



int main(int argc, char** argv) {
  printf("%s\n",mystrcpy(argv[1],argv[2]));
  printf("%s\n",mystrcpy(argv[3],argv[2]));
  return 0;
}

.intel_syntax noprefix
.globl mystrcpy
.type mystrcpy, @function
mystrcpy:      
    push ecx        
    push edx
    
    
    mov ecx, [esp+12]   
    mov edx, [esp+16]   
     
        
    next:
    mov al,[edx]
    mov [ecx],al
    cmp al,0
    jz done
    
    
    inc ecx
    inc edx
    jmp next
    
    done:
    mov eax, [esp+12]
    pop edx         
    pop ecx         
    ret

DlgStatic 0,150,10,130,112,100